■■■ 



THE DELL 
COMPUTER GAMES SERIES 



lf> o 

O) in 

-i< 

CD 
O 
CO 



LLi 

Q 



F 





ATARI 




MORE THAN 25 FASCINATING, ORIGINAL 

FULL-COLOR PROGRAMS FOR 

ARCADE-STYLE GAMES, BRAIN TEASERS, 

WORD GAMES, PUZZLES, AND MUSIC TO 

CHALLENGE AND ENTERTAIN YOU 



Paul Bunn 



ImEI 
■■■mi 
■■■■I 






1 
1 



" 



GAMES 
FOR YOUR 

ATARI 
COMPUTER 



- 



THE DELL COMPUTER GAMES SERIES 

GAMES FOR YOUR TIMEX-SINCLAIR 1000 
GAMES FOR YOUR TIMEX-SINCLAIR 2000 
GAMES FOR YOUR VIC20 
GAMES FOR YOUR ATARI COMPUTER 






" 



THE 

DELL 

COMPUTER 

GAMES 

SERIES 



GAMES 
FOR YOUR 

ATARI 
COMPUTER 



Paul Bunn 



A DELL TRADE PAPERBACK 



A DELL TRADE PAPERBACK 
Published by 
Dell Publishing Co., Inc. 
1 Dag Hammarskjold Plaza 
New York, New York 10017 



GAMES FOR YOUR ATARI COMPUTER was first published in 
Great Britain by Virgin Books Ltd. as part of the Virgin Computer 
Games Series. 



Copyright © 1983 by Interface/Virgin Books 

All rights reserved. No part of this book may be reproduced or 
transmitted in any form or by any means, electronic or 
mechanical, including photocopying, recording, or by any 
information storage and retrieval system, without the written 
permission of the Publisher, except where permitted by law. 

Dell » TM 681510, Dell Publishing Co., Inc. 

Printed in the United States of America 

First U.S.A. printing — November 1983 

Library of Congress Cataloging in Publication Data 

Bunn, Paul. 
Games for your Atari computer. 

(The Dell computer games series) 

Bibliography. 

1. Computer games. 2. Atari computer — Programming. 
I. Title. II. Series. 

GV1469.2.B8 1983 794.8'2 83-14356 

ISBN 0-440-52800-3 



" 



TO MY FAMILY AND FRIENDS 



" 






■ 



TIM HARTNELL— SERIES EDITOR 

Tim Hartnell is a leading computer expert and jour- 
nalist, who has contributed extensively to the Tech- 
nical Consumer Press. He is also the author of 
several books including Getting Acquainted With 
YourZX81, Let Your BBC Micro Teach You to Program 
and Programming Your ZX Spectrum. 

PAUL BUNN— THE AUTHOR 

Paul Bunn is a 16-year-old schoolboy studying for his 
"O" levels, and has owned an Atari for one and a half 
years. He has also written Total Control, a program- 
ming manual for the Atari, published by Interface. 

SUE WALLIKER— THE ILLUSTRATOR 

Sue Walliker is a freelance illustrator. 

ACKNOWLEDGEMENTS 

The author would like to thank the kind staff of 
Micro-C in Fishponds, Bristol, who lent him a printer 
while his was being repaired. 



CONTENTS 



Editor's Introduction 13 

Author's Introduction 15 

Skydiver 17 

Tic-Tac-Toe 23 

Race 29 

Lunar Landing 33 

Decision Maker 39 

Safe Cracker 42 

Tank Battle 56 

Digit Dodge 60 

Grand Prix 2 62 

City Bomb 64 

Engulf 68 

Color Pattern 72 

Color Puzzle 73 

String Pattern 77 

Sound Program 78 

Display List Interrupt Example 80 

Reaction Timer 81 

Morse Code 83 

Compliment Generator 85 

Space Docker 86 

Ski Run 92 

How to Write Better Programs 99 

Glossary 107 

Bibliography 121 



11 



Editor's 
Introduction 



Your computer is waiting to challenge you. Moving graphics 
games, brain stretchers, word games and puzzles are all here 
and ready to entertain you. 

A wide variety of games are included in this book. The 
programs have been written by some of the most talented 
young programmers working in this country at the moment, 
and represent a variety of approaches to solving program- 
ming problems. 

An examination of the listings should teach you many 
tricks and techniques to apply to your own programming. 
And once you have mastered the programs in their present 
form, you might want to try your hand at improving them. 
There is no such thing as a "perfect program," so these 
games are sure to benefit from your programming skill. 

All that now remains is for you to turn the page and enter 
the programs. I can only hope that you enjoy playing the 
games as much as we did when preparing this volume. 

TIM HARTNELL, series editor 
London 
March 1983 
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Author's 
Introduction 



I have tried in this book to give as many programs as possible 
which fully use the capabilities of the Atari 400/800 home 
computers. Many of the programs use redefined character 
sets, some use a fine capability of the Atari computers called 
player-missile graphics. 

I hope you enjoy playing the games, though you will 
benefit much more if you look at the listings and try to see 
how they work. Moreover, you can take ideas from these 
programs and use them in your own programs. 

PAUL BUNN 
Keynsham, Avon 
January 1983 



IS 



SKYDIVER 



(Uses the Joystick) 



This program uses redefined characters and player-missile 
graphics. The object of the game — which should not be 
played by anyone scared of heights! — is to get the highest 
score possible in 10 jumps. 

Your plane flies across the top of the screen: to jump out 
you press the red trigger button, and you will then descend 
at a rapid speed. When you wish to slow up, pull the joystick 
down and your 'chute will open. You receive bonus points if 
you manage to land safely on the landing pad. This bonus 
depends on when you open your parachute — the later you 
open it the better your score will be. Below a certain point, 
however, you cannot open the 'chute. A score of around 
12,000 is reasonable. 



Happy landing! 




-I I L 
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26 REN « PAUL BUNN DECEflBER 1982 *# 

£5 IF PEEK< £03 >=PEEK< 196 >-8 THEN 40 

30 GOSUB 10000: REH INITIALIZATION 

40 DIH PLfiNE*<l>»rifiN$<l)#CHUTE*<l>#BflSE* 

t 1 .J*LINE$'*. I . :: 

5S PLANE $=CHRi< OSC< " 4: " >+ 1 £3 > : HAN ■$= " ! " : L I 

NE$=CHR$< ASC< "#" >+36) 

etc ■—-! .~ \i ilWD i Tt**i 1 rt 

J- J rUn t_-M| if- — J, i i_t l k i 

SO GRAPHICS 17: SETCOLOR 2, 12, 10: POKE 16 , 

64: POKE 53774*64 

Si POKE 53277,3: REM % ENABLE PLAVER HISS 

I LE_ GRAPHICS * 

62 POKE 553*46: REH % DOUBLE LINE RESOLUT 

ION FOR PL A VERS * 

53 POKE 54£73,PEEK<£84>:REH % TELL ANTIC 
WHERE FT'l GRAPHICS Ah;E IN RAH * 

54 POKE 53256,3: POKE 53257,3: REH * QUADR 
OUPLE SIZE FOR CLOUDS % 

65 POKE 704,8: POKE 705, 14: REH % COLOUR F 

OR CLOUDS % 

bb ft3 = INT<L KND'% y j% 100 !?+75: POKE 53248, X3:R 

EH tt RANDOn HORIZONTAL POSITION FOR CLO 

ud i m 

67 X4= I NT'' RNO< 8 >t 1 @0 >+75 : POKE 53249 , X4 : R 
En ttRANDOn HORIZONTAL POSITION FOR CLO 

ij|_i ^ -V--V- 

68 POKE 8£3,l:REn * SET PRIORITY BETNEEN 
PLAVERS AND PLAVFIELDS t 

68 HOKE 53278,255: REH t CLEAR COLLISION 
DETECTION REGISTERS * 

70 POKE 756, PEEK>: 203 >:SETCOLOR 3,3,4: REH 
t POINT TO NEW CHARCTER SET IN RAH INST 
EAD OF HON * 

SO X= 1 : BASE*= " # " : CHUTE$=CHR$< ASC< " "/. " >+ 1 £ 

dj RE? ; ; : ■: rRiNi Bh&E LlNfc. %'M 

80 FOR P=0 TO 18 

180 POSITION P,£3 

110 PRINT #6iLINE$i 

i£0 NEXT P 

130 BfiSE=IHT< RND< OJ'SIS >+2 

140 POSITION BASE,££ 
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158 ? #6iBflSE$ 

155 REP1 ZZ P1HIN PRGGRHH LOOP ZZ 

166 POSITION X,0:? #GiPLHNE$: POSITION X- 

1,8:? #Si" " "~ 

170 X=X+UIF 'AitS THEN 190 

180 POSITION X-1,8:? #6i" ":X=1 

185 REH ZZ JOYSTICK ROUTINE ZZ 

ISO SI =ST I CK( O > ' S2=STR I G< 8 ) 

191 X3=X3-3slF X3<28 THEN X3=228 

132 X4=X4+3:IF X4>228 THEN X4=28 

193 POKE 53248* X3 5 POKE 53249, X4 

280 IF PlHN=8 AND S2=8 THEN GOSUB 1000 

205 IF P]fiN=l THEN LOCATE X2j-V2#2 

210 IF PlHN=l THEN POSITION X2*V2s? #SiPifi 

m 

220 IF CHUTE=1 THEN POSITION X2,V2-ls? # 

6iCHUTE$^F0R_P=l TO 188: NEXT P 

£22 IK PEEK< 53252 ><>8 OR PEEK< 53253 X >0 

THEN 2088 

£25 IF V2=22 HND P1hN=1 THEN 2008 

238 0X=X2 : X2=X2+< S 1 =7 ;■-< X2 > 1 3 ) 

240 0V=Y2 : X2=X2-< S 1 = 1 1 >+<: X2< 1 ) : V 2= V 2+ 1 

250 IF SI = 13 HND PifiN=l HND CHUTE=8 AND V 

2<19 THEN CHUTE=isFOR T=0 TO 50: SOUND 8, 

T, 128,15: NEXT T: SOUND 0,0,0,0s C=V2 

&'j-j Lr i'lHi'i— kl< I HL.N i^U 

260 POSITION OXjOV-Is? #6;' ! r! 

£70 POSITION 0X,Y2-l:? #6;" " 

993 REH ZZ PlflN OPENS CHUTE ZZ 

1000 PlfiN=i: ¥2=2:X2=X 

1818 FOR P=38 TO 8 STEP -2: SOUND 8,P,128 

,15: NEXT p: SOUND 8,0,8,0: RETUKH 

£000 IF 2=RSOC BfiSE$ ) THEN GOTO 3888 

2818 FOR G=8 TO 255 

2020 SOUND 0,6,18,15: POKE 708 , 6 

2030 NEXT 6 

£040 FOR 6=255 TO 8 STEP -3 

2858 SOUND 8,6,18,15: POKE 788 , 6 

£868 NEXT 6 

2878 SOUND 8,6,8,8 
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2888 POSITION 6,0: POKE 708,184 

2890 ? #6;">>>>>SPLHT<<<<<" 

2095 ? #6; "SCORE: "; SCORE 

2100 ? #6:? #6 i "PRESS start to PLAY" 

2110 POKE 53273 #8 

2120 IF PEEKC 53273 ><>6 THEN 2116 

2130 RUN 

3880 POSITION 0,0 

3010 IF CHUTE=1 THEN 3500 

3020 ? #6 ; "VOU DID NOT HfiUE" 

3838 ? #6; "your chute open" 

3840 ? #6:? #6i" OHCH ..." 

3O50 ? #6 

3060 FOR P=0 TO 150 STEP 2 

3070 SOUND 0jPj12#15 

3888 NEXT P 

3830 SOUND 0,0,8 , 

3100 GOTO 2835 

3588 ? #Si"^elI done ..." 

3518 ? #6* "YOU IWfiSED TO LAND" 

3520 ? #6; "ON THE PHD NITH VOUR" 

3530 ? #6 i "CHUTE OPEN ..." 

3540 POS I T I OH 3,10:? #R ; " sc ore : '■'• 

3550 B0NUS=C#75 

35S0 FOR P=0 TO BONUS STEP 5 

3570 POSITION 9,10:? #SiSC0RE+P 

3580 SOUND , P$25 ,18,15 

3598 NEXT P 

3S8y 8C0RE=SCQRE+B0NUS 

3618 SOUND 8,8,0,0 

3620 P"!ftN=0:CHUTE=0:NEXT JUP1P 

3630 GRAPHICS 2: POKE 53248,0: POKE 53248, 



3640 ? #6;"V0U'UE SUCCESSFULLY" 

3650 ? #6;'* LANDED 10 TINES" 

3660 ? #b 

3670 ? #8 i "your final score :-" 

3680 ? #6j" "i SCORE 

3690 SE7C0L0R 2,0,0 

3700 FOR P=5 TO 280 STEP 3 



" 
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3716 FOR 6=P-5 TO P+5 

3728 SOUND 8..Gj1@j15 

3730 NEXT G 

3748 SETCOLOR 1,RND<0>*15#8 

3758 NEXT P 

3760 SOUND 8,8,8,8 

3770 END 

iOOOO FWWT=PEEK(l@6>-8!A=256*RfB! 

10010 GRAPHICS O 

1O02O SETCOLOR 4 *3#2: SETCOLOR 2,3,2 

10030 PRINT CHR$( 127 )i "PLEASE NAIT A LI I 

TLE WHILE" 

10040 PRINT CHK$< 127;'i"*:?::t:tttt:^**»:^^ 

10O50 POKE 752,1: PRINT 

i0O55 RET1 *$ COPV CHARACTER SET FRQF1 ROP1 

IN ! U hiAi'l -V--V- 

10OS0 FOR P=0 TO 1023 

10070 POKE A+P,PEEK<57344+P> 

100SO SOUND 8,PEEK< 53778), 18,2 

1O0S0 NEXT P: SOUND 0,0,0,0 

10100 READ ei 

1011O IF X<8 THEN POKE 283, RAPT: GOTO 1022 

10120 FOR F-0 TO 7 

10130 READ V 

10140 rOKt < X£8 )+A+P , V 

10150 NEXT P 

L0168 SOTO 10100 

101G5 REP1 « DATA FOR REDEFINED CHARACTE 

rs n. 

10170 DATA 1, 153, 1SS, 153, 126, SO, 68,66,12 
18138 DATA 5,0,0,0,24,60,126,195,129 

4j-jiijh nnTN "7 -~icrcr --etc- -ir-c- --.err --crcr - ( irr -l 1 ^^ 

, ci55 

1O200 DATA 6,16,6,132,134,255,2,4,8 

1021O DATA -1 

1022O R=RAP1-S 

10225 REP1 *# CLEAR OUT PLAVER P1ISSILE GR 

APHICS flEPlORV tt 
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18238 


FOR P=512 TO 76S 


16240 


POKE R*256+p,0:HEXT P 


10245 


REFI ** POKE IN DflTfl FOR 


ERS *> 




10250 


FOR F-0 TO 7 


1 0260 


READ X 


10270 


POKE RS256+70+P+5i2,K 


10280 


POKE RS25G+50+P+640 1 H 


1 0290 


NEKT P 


1 0300 


POKE 204 ,R 



CLOUD PLflV 



10310 RETURN 

10315 REP1 ## DflTfl FOR P. PI. GRAPHICS : 

10320 DflTfl 16j 126,127,255, 12b, 62, 28, < 



TIC-TAC-TOE 



(Keyboard) 

This game, written by Roland Marriott, requires a machine 
with a 24K memory; it can be played either against the 
computer or a friend. To win you must get four squares of 
the same color in a row. 

There are four planes from left to right, labeled A, B, C 
and D. To make your move, first type a plane letter (A-D). 
Then enter two digits to correspond with the position on the 
plane. They are numbered left to right from 01 to 16, like 
this: 



13 


14 


15 


16 


09 


10 


11 


12 


05 


06 


07 


08 


01 


02 


03 


04 



Here are examples of moves, though you should note that 
RETURN does not have to be pressed: 

D15 
A05 
B10 
C02 
B16 

When you are asked how many players want to play, press 
"1" if you want to play against the computer, otherwise press 
"2." 
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1 REPl t 3D NOUGHTS AND CROSSES By * 

2 REPl * ROLAND NflRRIOTT X 

4 GOSUB 3800 

5_Dj.Pl SPACEXS4 f 2>:DIPl P1ARKX S4 ') : D I PI BLOB< 
06 #J A* D I il HZ\ 40 ) 

5 CL=0 

7 GOSUB S0O0 

10 GRAPHICS 7+ IS: COLOR 1 

17 SETCOLOR 2, 12,8: SETCOLOR 4*0*3 

I S^SETCOLOR 1,4,8: SETCOLOR 8 , 2 , S : SETCOLO 

K 3 , ■*> .' o 

20 FOR X=6 TO 129 STEP 43 

38 FOR V=S5 TO 38 STEP -1 

48 PLOT X,V:QRAHT0 X+30,¥ -38 

cfj l IfTVT ! ! 

■-»-' ilC:'-. ! T 

50 NEXT X 

51 PLOT 0,28:DRAHT8 23,8: PLOT 8,27:DRAMT 

S3 PLOT RT+4i,35:DRAHT0 RT+41 j3@:DRAWT0 
RT+71#@:PL0T Rm-48,35:DRANT8 RT+48,38:DR 
AWTO KT+/y,y 

B4 Nb.! : '*i 1 NT 

65 COLOR 8: SETCOLOR 4,3,2 
SB FOR Z=8 TO 123 STEP 43 
78 FOR V=31 TO 31 STEP -28 
72 FOR X=l TO 31 STEP 3 
74 pop; pj=0 TO 1 

7S8 PLOT Z+X+A,¥-A-X+3:DRAHT0 Z+X+A,V-A- 

788 NEXT A 

858 NEXT X 

388 NEXT V 

358 NEXT Z 

1888 F8R P=l T8 84: READ H,J 

1 ft 1 8 SPACE< P , 1 ;'=H : SPACE( P , 2 >= J 

1812 NEXT P 

1815 IF PEEKX 784 )=255 THEN 1815 
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101b CLOSE #i:OPEN #1 ,4,0, M K: H :GET #1*H 

1817 IF_W<65 OR H>68 THEN POKE 784,255:0 
0T0 1015 

1013 IF H=65 THEN N=8: IF M=66 THEN N=16: 
IF (4=67 THEN N=32 

1019 IF N=66 THEN N=16 

1020 IF N=67 THEN N=32 

1021 IF H=68 THEN N=43 

1023 POKE 764,255 

1024 IF PEEK< 784 >=255 THEN 1024 

1025 CLOSE #5: OPEN #5,4,0, "K: ": GET #5,2 
1028 IF 2< 48 OR 2>49 THEN POKE 784,255:8 
\ 1024 

!Uii7 POKE 7b4#255 

1823 CLOSE #4: OPEN #4,4,8, "K: ": SET #4,HH 

:IF NH<43 OR HH>57 THEN POKE 764* 255! GOT 

1027 

1833 REP1 FOR TR=0 TO 2 

1 034 SP=N+ 1 0£< 2-48 HWH— 48 : LOCHTE SPftCE< S 
P,I >,SPHCE<SP,2>,GH: IF 6HO0 THEN GOTO 1 

1^35 CL = LL+1: IF CL=2 THEN CL=0 

1636 FOR RY= 15 TO STEP -1: COLOR CRV+CL 

+2 ) • SETCOLOR 1,3,4 

1037 FOR TR=8 TO 2 

1033 PLOT SF'HCE< SP,1 )+TR,SPHCE< SP,2>-TR: 

DRflWTO SPHCEC SP , 1 >+TR , SF'HCE< SP , 2 >-TR-3 

1839 NEXT TR:NEXT RV 

1848 CLOSE #1 

1842 FOR PG=1 TO 64 

1844 LOCATE SPfiCE< PQ, 1 >jSPfiCE< PQ,2 >,U 

1846 PiflRK<PQ>=U!NEXT PQ 

1056 C=CL+2 

Myy h=1: 8=16: 0=16: E=l:GOSUB 1400 

1 1 05 H= 1 : B=6 1 : 0= 1 : E=4 : GOSUB 1 400 

1110 fl= 1 : 8= 1 3 : 0= 1 7 : E=4 : GOSUB 1 400 

1115 H=4 : B= 1 6 1 0= 1 5 : E=4 : GOSUB 1 480 

1120 H=l:ti=4:u=20:E=l: GOSUB 1400 

1125 fi= 1 3 : B= 1 6 : D= 1 2 : E= 1 : GOSUB 1 400 

1138 fi= 1 : B= 1 : 0=2 1 : E= 1 : GOSUB 1 488 

1 1 35 fl= 1 3 : B= 1 3 : D= 1 3 : E= 1 : GOSUB 1 400 
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I 1 4@ 0= 1 6 : B= 1 6 : D= 1 1 : E= 1 : SGSUB 1 489 

1145 H=4:B=4:D=i9:E=l:G0SUB 1460 

1 1 58 fl= 1 : B=49 : D=5 : E= 1 6 : SOSUB 1 408 

1155 H=4:B=52:D=3:E=16:S0SUB 1488 

1 1 60 fi= 1 : B=4 : D=4 : E= t : GOSUB 1 408 

1 1 65 R= 1 7 : B=28 : D=4 : E= 1 : SOSUB 1 488 

1 1 78 H=33 : B=36 : D=4 : E= 1 : SOSUB 1 488 

1 1 75 H=33 : B=36 : D=4 : E= 1 : GOSUB 1 480 

1 1 80 H=49 : B=52 : D=4 : E= 1 : GOSUB 1 400 

i299 IF PLPVER=1 HMD CLOG THEN GOTO 158 

85REP1 IF CL=8 THEN GOTO 1815 

1388 GOTO 1815 

1488 FOR PQ=H TO B STEP E 

1418 IF nHRKXPQ>=C HND ITftRK< PQ+D >=C AND 

FlflRK<PQ+2*D>=C HND NfiRK< PQ+3*D )=C THEN G 

OSUB 1458 

1428 NEXT PQ 

1438 RETURN 

1458 PLOT SPHCE< PQ,1 Hl*SPfiCE< PG,2>-1:0R 

flWTO SPACED PQ+3&D * 1 >+ 1 j Si-flCEi PQ+3*D , 2 >- 1 

: RETURN 

1588 REP! MACHINE LOGIC 

1688 FOR pQ=l TO 64 

1685 LOCATE SPfiCE<PQ#l>#SPflCE<PQ#2>#U 

1606 IF 0=2 THEN U=18 

1688 IF 0=3 THEN 0=58 

1618 rTflRK<PQ>=U:NEXT PQ 

1615 H=@ 

1628 fi=l:B=16:Q=18:E=l: GOSUB 1700 

1 625 P= 1 : B=6 i i D= 1 : E=4 : GOSUB 1 788 

1 638 H= 1 : B= 1 3 : 0= 1 7 : E=4 : GOSUB 1 788 

1 635 H=4 : B= 1 6 : 0= 1 5 : E=4 : GOSUB 1 788 

1 648 A= 1 : B=4 : 0=28 : E= 1 : GOSUB 1 788 

1 645 fl= 1 3 : B= 1 6 : D= 1 2 : E= 1 : GOSUB 1 788 

1 658 H= 1 : B= 1 : 0=2 1 : E= 1 : GOSUB 1 788 

1 655 fl= 1 3 : B= 1 3 : D= 1 3 : E= 1 : GOSUB 1 788 

1 660 H= 1 6 : B= 1 6 : 0= 1 1 : E= 1 : GOSUB 1 700 

1 665 A=4 : B=4 : D= 1 8 : E= 1 : GOSUB 1 788 

1 678 A= 1 : B=43 : 0=5 : E= 1 6 : GOSUB 1 788 

1 675 A=4 : B=52 : 0=3 : E= 1 6 : GOSUB 1 788 

1 688 A= 1 : B=4 : 0=4 : E=l : GOSUB 1 788 
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1 682 fl= 1 7 : B=28 : D=4 : E= 1 : GOSUB 1 796 
1686 0=33 :B=36:D=4:E=l: GOSUB 1706 
1 688 fi=43 : B=52 : D=4 : E= 1 : GOSUB 1 760 

1G38 GOTO 1740 

170O FOR PQ=fl TO B STEP E 

1705 H=H+1 

1710 SUPl=nHRK( PQ HHHRKX pq+d >+m=iRK< pq+2*d 

HPIHRKC PQ+32D ) 

1720 IF SUP1=30 THEN GOTO 1830 

1 725 BLOB< H , 1 >=SUP1 : BLOB< H , 2 >=PQ : BLOBC H , 3 
>=D 

1730 NEXT PQ: RETURN 

1740 FOR TZ=1 TO H: IF BLOB-: TZ, 1 >=158 THE 

1745 NEXT T2 

174G VZ=0:FOR TZ=1 TO H 

1748 IF BL8B<TZ,1>=28 OR BLOB< TZ, 1 >=I80 
THEN GOSUB I860 

1758 NEXT TZ:IF VZOS THEN GOTO 1768 

1755 GOTO 2856 

1768 FUR TZ=1 TO VZ:FOR PZ=2 TO .:VZ-1> 

1765 IF HZ< TZ >=HZ< PZ > AND TZOPZ THEN SP 
=HZ< TZ ) : GOTO 1 835 

1766 NEXT PZ:NEXT TZ 

1778 IF VZ<>8 THEN SP=HZ< VZ >'. GOTO 1835 

1838 FOR TK=8 TO 3: IF HfiRKtt PQ+TKSD >=8 TH 
EN SP=PQ+TKSD:60T0 1835 

1835 NEXT TK 

1858 REP1 DEFENCE 

1855 FOR TK=8 TO 3: IF HhRKX BLOB< TZ,2>+TK 

*BLQB<TZ,3>)=0 THEN SP=BLuB<TZ,2>+TK*BL0 

B<T2#3>!S0T0 1035 

1857 NEXT TK 
1868 F8R P=8 TO 3 

1863 IF nHRK<BL0B<TZ,2;+PSBL0B<TZ,3}>=8 

THEN VZ=VZ+ 1 : H2< VZ >=BLOB< TZ * 2 HP#BLOB< TZ 

,3) 

1865 NEXT P: RETURN 

1888 GOTO 2850 

1858 GOTO 2050 
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2950 SP=INT<64#PMK1)+1}:IF P1ARKX SP >=0 T 

HEN GOTO 1035 

2055 SOTO 2358 

3000 RET! COMER PAGE 

3020 GRAPHICS 2+16:SETC0L0R 4,13,2 

3030 POSITION 3,1:? #£;,-" ###############" 

3040 POSITION 3,2:? #6; "# 3D NOUGHTS #" 

3050 POSITION 3,3:? #6;"# AND CROSSES #" 

3052 POSITION 3,4:? #6,-"# BV ROLAND #" 

3054 POSITION 3,5:? #6;"# HARRIOTT #" 

30S0 POSITION 3,6:? #6,- "###############" 

3070 POSITION 1,?:? #6; "PRESS start. JO P 

LAV" 

30SO IF PEEK< 53279 >=6 THEN RETURN 

30SO GOTO 33S@ 

5O00 DATA 1,93,10, 84 ,19,75, 28 , 66 

5010 DATA 1,73,10,64,19,55,28,46 

— ;--~--~4 r-:-iT-i i c~T « i~4 A A i O "7^" ■~ , ~ , ~'C' 
DtO£» LiMiM I i Jl' , 1 O , 1-4 , 1 d , •-•■_' , £-C> i Lib 

503O DATA 1,33,10,24,19,15,28,6 
5040 DATA 44,93,53,84,62,75,71,66 
5050 DATA 44,73,53,64,62,55,71,46 
5060 DATA 44,53,53,44,62,35,71,26 
5070 DATA 44,33,53,24,62,15,71,6 
5080 DATA 87 , 93 , 96 , 84 , 1 05 , 75 , 1 1 4 , 66 
5090 DATA 87 , 73 , 96 , 64 , 1 05 , 55 , 1 1 4 , 46 
5100 DATA 87,53,96,44,105,35,114,26 
5110 DATA 87,33,96,24,105,15,114,6 
5120 DATA 130,93,139,84,148,75,157,66 
5130 DATA 130,73,139,64,148,55,157,46 
5140 DATA 130,53,139,44,148,35,157,26 
5150 DATA 130,33,139,24,148,15,157,6 
6000 GRAPHICS 2+16:? #6 ,-"2 HUF1AN PLAYERS 

it 

6010 ? #6; "OR 1 HUP1AN UERSUS me" 

KFI20 ? #6i" (TVPE 1 OR 2 >" 

6030 OPEN # 1 , 4 , O , " K : " : GET # 1 , PI : I F PK 49 

R n>50 THEN POKE 764,255: CLOSE #l:GOTO 6 

030 

6040 PLAVER=Pl-48: CLOSE #1 
6050 RETURN 



RACE 



(Joystick) 



This game was written by Paul Dunning. In it you race against 
three other cars, all trying to cover as many miles as possi- 
ble. Use the joystick to maneuver your car through the 
course. By pressing the red fire button on the joystick you 
can shift gears. The program uses machine code, so SAVE it 
before attempting to RUN the program. 
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30 • GAMES FOR YOUR ATARI COMPUTER 



2 DIP] S<4),G*': 18),E$< 180) 

3 GRAPHICS 5:G$="L0H":F'UKE 752,1 

5 GOSUB 10@G 

6 PDKE 765,2: COLOR 2: PLOT 8,S:DRAMT0 79, 
0:PLOT 79 # 47s DRflWTO 73* 30 s DRflWTO 6#30:PO 
S I T I ON 0,47: X I 1 3 , #6 ,&,&," S : " 

7 POKE 765,3: COLOR 3: PLOT 79,29: DRAhTO 7 
9,1: DRflWTO 0,1: PCS I T I ON 9 , 29 s X 1 1 8 , #6 , @ 

, b , ■!■■ • 

8 P K E 7 1 ii , 1 4 o 

1 PF-PEEKX 1 86 )- 1 6 : POKE 54279 , PP 
28 Pfl=PP*256 SPOKE 559,62 

21 FOR Q=? = i3256 TO 53280s POKE Q#3:P0KE Q~ 

8,RND<1 >:?:255:NEKT Q 

22 POKE 53246, 100: POKE 53249,108: POKE 53 
250 , 1 88 : POKE 53251, 58 

23 POKE 784, 189: POKE 785,89: POKE 786,79: 
POKE 787,29: POKE 53277,3: POKE 559,62 

24 FOR Q=Pn+1024 TO Pn+2048:POKE Q,0:NEX 



38 RESTORE 218: FOR Q=PP1+1 144 TO Pf'1+1288: 
READ ft: IF A=-i THEN 32 
31 POKE Q, A: NEXT Q 

7.2 RESTORE 218: FOR Q=pn+1368 TO PP1+1536: 
READ fl: Ih A=-l THEN 34 

33 POKE Q, A: NEXT Q 

74 RESTORE 218: FOR Q=PP1+1576 TO Pfl+1792: 
READ A: IF A=-l THEN 36 

35 POKE Q, A: NEXT Q 

36 RESTORE 218: FOR Q=pn+1842 TO PH+2848: 
READ A: Ih A=-l THEN 48 

37 POKE Q, A: NEXT Q 
48 POKE 623,1 

50 SOUND 8 , 255 ,12,5: SOUND 1 , 1 45 , 1 2 , 5 : SOU 

ND 2,288,12,5 

fifl FOR P= c i3256 TO 53268: POKE Q, 3: POKE Q- 

SlRNDU v*:255:NEXT Q 

70 POKE 704, 109: POKE 705,89". POKE 786,79: 

POKE 787,29: POKE 53277,3: POKE 559,62 

75 ST=Pn+1342: HG=INT< ST.-256 >: LN=ST-256*H 
G : POKE 203 , LW : POKE 204 , HG : POKE 285 , 1 8 
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80 P 1 =< RND< 1 >t 1 80 ':•+ 1 00 : P2=< RND< 1 >t 1 00 >+ 1 

00* P0=< RND< 1 >$100 >+100: P3=58 

85 FOR 0=6 TO 3 : S< Q ')=< RND< 1 >$2 >+ 1 : NEXT Q 

87 POKE 53248* P0S POKE 53249, PI : POKE 5^2^ 
U,P2:P0KE 53251,56 

38 FOR Q=l TO 50 : X =USR':: HDR< £■$':>, 7 >'. NEXT Q 

90 IF G*="HIGH ,! THEN SOSUB 400: 60T0 128 

92 POKE 53278,1 

95 P0=P0+S< 0>* IF P8>255 THEN P0=0 

98 X=USR<flDR<E*>*STICKC0>) 

188 Pl=Pi+S<l>'IF Pl>255 THEN Pl=8 



118 P2=P2+S<2>:IF P2>255 THEN P2=8 

128 ni=fii+0.0i 

1 £4 X=USR< HOR< E$ > , ST I CK< 8 ) ) 

129 IF STRI6<0>=O THEN 60SUB 588 

138 POKE 53248, P8: POKE 53249, PI : POKE 532 

58, P2 

135 POKE 6-_>6 r k. s POKE 857,5s y "GEfiR ''i'5$i" 
""POKE G56,2:P0KE 857,28:" "PULES "iHI 

_ M H 

1 48 CP=PEEK< 53263 > : CS=PEEK< 53255 ':< 

158 IF CPO0 THEN 688 

168 IF CS04 THEN 688 

198 GOTO 98 

210 Ut-iTH 64,ii^o,ii3o ,iL3o ,ii3y ,ii3o,78,G8,22 



£. i ■_' L'H ! H il-J'O , CSO , bt , — 1 

3y@ C=INT< RND< 1 >£3 >! S< C :>-<. RND< 1 >£2 >+i : RE 

I URN 

488 P0=P0-<S<0}#2>* IF P8<8 THEN P8=255 

485 X=USR< HDR< E$ > , ST I CK( 8 > ) 

418 P1=P1-:S< 1 >i.2>: IF PK0 THEN Pl=255 

415 X=USR£ PDR< E$ ) , ST I CKX 8 > ) 

428 P2=P2-<S<2>&2>! IF P2<8 THEN P2=255 

425 X=USR< ROR< E$ > , ST I CK< S > ) 

438 PI I =H I +8 . 85 : RETURN 

500 IF H:£="HIGi-i ! ' THEN 6$= "LOW'S SOUND Fi « 2 

55, 12, 10: SOUND 1 ,245, 12,10: SOUND 2,235,1 

2,10: RETURN 

510 G*="HIGH": SOUND 8,188, 12, 18: SOUND 1, 
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110, 12., 1@: SOUND 2,38., 12, 18: RETURN 

680 GOTO 640 

605 SOUND , , , : SOUND 1 , 8 * 8 , 8 : SOUND 2 , 

0,0,0 

610 POKE 53246,100: POKE 53243, 100: POKE 5 

R28 TRfiP 628: "■ " ANOTHER 80 "H INPUT G*: 

IF G4Kl,i>="V" THEN P!I=0: Gi="LOW" : ? CHRi 

( 125 >■ GOTO 24 

630 END_ 

640 J=PEEK< 203 }+256£PEEK< 204 > 

R4F; FOR P=l TO 250: IF PEEK< J+Q )=8 THEN N 

EXT Q 

650 ST=J+Q : HG= I HT< ST/256 > : LH=ST-256$HG : P 

OKE 203 , LN : POKE 284 , HG 

655 FOR P=l TO 88 

660 :K=USR< 1 536 > : SOUND 1 , PEEK< 53770 > , 1 28 , 

■i ET 

X -J 

670 POKE 707, PEEK< 53770 >: NEXT P 

788 POKE 5325 1,0: GOTO 605 

1000 RESTORE 2080 

1010 TRfiP 1050:P=0 

1020 P=P+l:REHD ft 

1030 E*<P,P>=CHR$<ft) 

1040 GOTO 1820 

1050 RESTORE 3000 

1060 TRfiP 1030: P= 1536 

1070 READ ft: POKE P,ft:P=P+l 

1080 GOTO 1070 

1030 TRfiP 40888 

1188 RETURN 

£800 DfiTfi 1 04 , 1 04 , 1 04 , 74 , 72 , 1 76 , 1 1 , 1 88 , 8 

, 1 77 ,283 , 1 36 , 1 45 , 283 , 2tf8 , 288 , 288 , 247 , 1 84 

,74,7ii 

2818_DftTfi 176, 1 1 , 160,0, 177,203,208, 145,2 

83,136 

2828 DfiTfi 136,288,247,184,74,72,176,7,13 

8,285,165 

2838 DfiTfi 285 ,141,3, 288 ,184,74,176,7, 238 

, 285 , 1 S5 , 205 ,141,3, 208 , 96 , END 

3000 DfiTfi 1 04 , 1 68 ,0,1 73 , 1 8 , 2 1 8 , 1 45 , 283 , 2 

@8 , 1 32 , 25 , 208 , 246 , 36 , END 



LUNAR 
LANDING 



(Joystick) 

This game was also written by Paul Dunning. You use the 
joystick to land on the blue landing pad and score maximum 
points for a slow, gentle landing (say, a vertical speed of 5). 
You will crash if you are going too fast. 

If you land, your score will depend on how slow your 
vertical speed was and on which landing pad you alighted. 
You are then given 500 extra fuel units and the game begins 
again. The game ends when you run out of fuel. 




• T r'HUL UUririi 

i DA i H i Uo #68 j t'l j-4u j5j j4y jGu j4y jG4 #48 i 72. 
, 4y r 4y , 4y j 53 j, 40 j, 60 , 40 f 64 #48 * 7Z * 40 * 48 r 49 * 
5-.i 1 48 i t-y j? 48 i 64 j 4y i ty ^ 48 1 id j yy 
2 DfiTfl 108#80»3S#88#80#48#S4#48jf72.»48.»81 

33 



34 • GAMES FOR YOUR ATARI COMPUTER 

, 88 , 72 , 48 , 64 , 40 , 72 , 60 , 36 , 40 , 85 , 40 , 53 , 88 , 
48 , 40 , 45 j 4y , 50 * 40 , 53 , 48 , 89 , 40 

3 DfiTfl 68 , 48 , 72 , 40 , 3 1 , 48 , 53 , 88 , - 1 

4 CLR :DIH H$>: 100>,H$< 11 >,£*< 60>:H*=" a 
tar i ": POKE 752,1: HI =568 

5 pp= i : FU=4888 : T I = 1 00 : 86=0 : HU=8 : W=HU : PO 
KE 5327b", 1:66SUB 888:68SUB 4080 

6 DftTfi 11*12*13*13*14*15*17*19*21*22*23* 



",33,33,: 



DftTfi 25,26,28,38,31, 33, -t 



8 UHTH 3 1,30,2h, 28,i£6, 25, 25,24,23,21, 18, 
16,15 

j-i —i|-:-r!- ^ -i f A i a < c * ■? |Q oi '"'"j -~» -1 •'52? -~i~- 

d_ L.ih| M i4,i4,i4,i-_i,lf jidfiii ii o , £.4 , .c-_> , £b , 

18_ DftTfi 28,28,28,28,27,26,26,25,26,27,28 

, CO 

I'd UHffi 28*18*17*17 

£8 FUR 1=1 T8 8:P8KE 53247+ I , 8 : NEXT 1:66 

TO 485 

38 END 

128 REP1 PUKE 53248,38 

280 REM $$:m:PLHVER SETUP **:m 

218 POKE 558,8: PUKE 718, 148: POKE 712,8 

215 POKE 752,l:fiL=110 

230 RESTORE 235: FOR S2=l TO 60: READ S3:E 
$(. S2 , 62 >=6HR$< S3 ) : NEXT S2 

235 DOTH 184,104,104,74,72,176,11,160,2, 
1 77 , 203 , i 36 , 1 45 , 203 , 208 , 200 , 208 , 247 , 1 84 , 
74,72 

236 DftTfi 1 76 , 1 1 , 1 68 , 253 , 1 77 , 283 , 288 , 1 45 , 
203,136 

237 DfiTft 1 36 , 288 , 247 , 1 84 , 74 , 72 , 1 7b , 7 , 1 98 

238 DATS 165,285,141,0,288,184,74,176,7, 
238,285, 165,285, 141, 8, 208, 8b, 8, 8 

24@ fl=PEEK< 186 >- 16: POKE 54278, ft: POKE 284 
,ft+4:F0KE 283,8: PriBfiSE=ft*256 

258 POKE 53277,3: POKE 784,48: P8KE 53248, 
150:P6KE 285, RNTK 1 >t 138+78 :P8KE 53256,6 
260 F8R I=PP1BftSE+1824 TO PP1BfiSE+1288:P0K 



- 
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E 1,0: NEXT I 

279 RESTORE 290 

280 FOR I=PnBRSE+1155 TO PITBfiSE+1209:REfi 
D B:POKE I, B: NEXT I 

290 DfiTfl 3,8, 60 ,60, 126, 126*195, 195,126,1 

26,60,60,24,24,126,126,165,165 

300 DATA 165,165,165,0,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0 

310 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

,0 

320 POKE 559,62: GOTO ,390 

370 ST=STICKC8) 

380 CO=PEEK< 53252;-: IF CO>0 THEN GOSUB 50 

@ 

385 POKE 53278,1 

390 IF flfl=l THEN FOR Q=0 TO 100:fl=USR<HD 
RC E$>, 14 >: SOUND 0,255,8, 15: NEXT Q:flft=@:fl 

=USR< HDR< E$ ) , 1 1 > : SOUND 0,0,0,0 

409 POKE 53278,3 

418 IF ST=14 AND FU>=30 THEN SOUND 0,255 

, O , 1 -J ■ DU i U "i-d KJ 

415 SOUND 0,0,0,0 

420 IF ST=7 OR ST=11 AND FU>=5 THEN SOUN 
D 1,1 OO , 8 , 3 : SOTO 436 
425 SOUND 1,0,0,0 

430 IF FLK=0 THEN FU=0:6OTO 455 

431 IF ST=7 THEN HU=HU+0.05:FU=FU-5 

432 IF ST=11 THEN HU=HU-0.05:FU=FU-5 
440 HP=HP+HU:IF HP>1 THEN HP=0:SR=7 
450 IF HP<-1 THEN HP=0:SR=11 

455 iji.j=i..ii..i+M.fi2:Lip=i.ip+i.Ji.i: IF UP>1 AND SR=1 
5 THEN UP=0:SR=i3:HL=flL-l 

456 IF MP>1 AND SR=11 THEN Up=0:SR=9: AL= 
HL-1 

457 IF UPM HND SR=7 THEN UP=0: SR=5: AL=A 
L-l 

458 IF Up<-i THEN UP=0: SR=14: AL=AL+1 
460 IF ST=14 HND FU>29 THEN W=UU-tf.05:F 
U=FU-30 

480 H=USR':r-tDR':E$>,SR;':SR=15 

485 ? " SCORE="iSCi" " iCHRIK 127 >i " UUEL 

=";UU^100;" " 



36 • GAMES FOR YOUR ATARI COMPUTER 

486 ? " FUEL =";FU; U U ;CHR$< 127?;" HUEL 
= H ;HW108;" 

487 ? " TlflE = n ;INT<TI>;" "iOHR*< 127 >i" 

HLT ="iftLi" " 

488 ? CHR$<23>;CHR*<28);CHR$<28># 

483 TI=TI-6.1 

498 IF TI=8 THEN 728 

482 SOTO 378 

485 SOTO 218 

580 IF 86=4 RND W<0.5 THEN 688 

585 IF UU=4 FIND UU>8.4 THEN 700 

510 IF CU=2 THEN 700 

520 RETURN 

800 FDR Q=l TO 2: FDR (4=255 T8 180 STEP - 

818 SOUND 0,H* 10 #15: SOUND 1,N- 18, 18,15:8 

OUND 2,N-2O,10,15 

620 NEXT N:NEXT Q 

630 SS=0.5-W:SG=SC:IF 88=8 THEN SC=SC+5 

8 : 6DT0 658 

648 IF flL< 5 THEN SC=SC+<SS&100)$10:6OTO 

658 

642 IF hI_ : :'2m THEN SC=SC+< SSSIOO >$20: SOTO 
650 

644 IF HL<60 THEN SC=3C+< SSS1 OO >.*5 

658 IF FU<2508 THEN FU=FU+< S0-S8S2 > 

655 F8R 0=0 T8 3 s SOUND 0,0,8,0: NEXT Q:fifi 

= 1 : POKE 53278 , 1 : SOSUB 880 : S8T8 2 1 8 

7Pifi FHR 0=0 T8 58: POKE 7i2,RND< 1 >#255:S0 

UNO 8,255,8, 15: S8UND 1 ,248,8, 15: SOUND 2, 

228,8, 15: NEXT 

785 SOUND 8,8,8,8: SOUND 1 ,8,8,8: SOUND 2, 
8 , 8 , 8 

786 IF FLK38 THEN FU=8:S8T0 728 

7 1 8 POKE 712,8: p.H= 1 : SOSUB 888 : SOTO 218 

728 POKE 712,8: SOTO 818 

880 UP=0 : HP=0 : HU=0 : W=0 : T I = 1 88 : RETURN 

810 IF SOHI THEN SOSUB 1010 

828 GRAPHICS 17:SETC8L6R 4,1,8 

838 ? #6;" SfiPlE 8UER" 

835 ? #6:? #6;" HISH SC8RE ";HI 

636 ? #6:? #6," ";H$ 
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348 ? #6:? #G;" PRESS START " 

859 PUKE 53248*8 

360 IF PEEK< 53279 >=6 THEN RESTORE :GOTO 

87u GOTO 860 

899 END 

800 HLf'l INTHO 

810 GRAPHICS 17:SETC0L0R 4,1,0:E=8 

920 ? #6i" LUNAR LONGER " 

830 ? #6:? #6;" BV P. DUNNING SEP. 82" 

940 ? #£;:? #p ;i » USE JOVSTICK <G>" 

850 ? #6:? #6;" u p 

9G0 ? #6:? #6;" ••'- " 

870 ? #6;" left < > right" 

888 ? #6 

885 POKE 53248 j. U 

890 READ Pis IF PK8 THEN 988 

882 REfiD P 

885 SOUND e,F1,18,15:F0R PP=8 TO P:NEXT P 

887 GOTO 890 

888 ? #6i" yood luck" 

999 FOR X=l T 13: FOR V=8 TO 255 STEP 28 

: SOUND 8,V,18,15:NEXT V:NEKT X: SOUND 8,9 

,8 j 0: RETURN 

1S0U RESTORE t s SOTO 330 

1010 H*=" ":TI =38: GRAPHICS 18:SETC0L0R 4 

,1,8:? #6;" GREAT SCORE ":? #6:X=1:V= 

abcdefah" 



l:HI = 


SC 


1011 


? #8;" 


i ii' i i! 


? #8 


irfiO 


? #8 i " 


1 W 1 *t 


? #6 


1015 





101b ';•• #H 

1017 ? #6;" y z . - RE " 

1018 POKE 53248,8 

1 028 FOR Q=10 Tii ^4!=; : si ii jhd fi , Q- 18,8,15s :-; 
OUND 1,0,8,15: SOUND 2,0+18,8, 15: NEXT Q 
1S30 POSITION X,Y:? #6i "XXX" s POSITION X, 
V+l:? #6; "X": POSITION X+2,V+1:? #8;"X":P 
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OSITION X,V+2:? #6j"XXX" 

1046 IF STICKX8X>7 THEN 1058 

1845 POSITION X#Vs? #6;" ": POSITION X, 

V+i:? #6i" ": POSITION X+2#Y+lz? #6;" ":P 

OSITION X,V+2:? #6;" 

1Pi4r if X>13 AND V=7 THEN X=lsV=ls60TQ i 

850 

1847 IF X>13 THEN X=l : V=Y+2: GOTO 1858 

1848 X=X+2 

1058 IF STICK<0X>11 THEN 18S8 
1855 POSITION X,V:? #Si" ": POSITION X, 
V+l:? #6;" ": POSITION X+2,V+l:? #6j" ":P 
OSITION XjV+2s? #6i" 

105S IF X<3 AND V=l THEN X=15: V=7:G0T0 1 
0Ry 

1857 IF X<3 THEN X=15: V=V-2: GOTO 1868 

1858 X=X-2 

1868 POSITION 6,10:? #6;"TIP1E " ; INK TI >; 
" ":TI=TI-0.l:IF TI=8 THEN 1100 

1865 FOR PP=8 TO 20: NEXT PP 

186S IF STRIGK0X>0 THEN 1080 

1071 LOCATE X+l#V+l,XXsIF XX=flSCX "E" > TH 

EN 1108 

1072 IF XX=flSC<"R u > HND LEN<H*»1 THEN H 
$=H$< 1 , LEN( H$ >- 1 > : GOTO 1 088 

1073 IF LEN<H$}>10 THEN 1088 
1 875 H*< LEN-: H* >+ 1 >=CHR*< XX > 
1888 POSITION 4,11:? #6;H*j" " 
1898 GOTO 1838 

1188 FOR Q=8 TO 3: SOUND Q* 8,8, 8: NEXT Q 

1118 RETURN 

4000 GRAPHICS 5 

4010 RESTORE 6: COLOR 2 

4020 FOR X=0 TO 7S 

4030 READ V 

4040 PLOT X,39:DRHWT0 X,V 

4050 NEXT K 

4068 COLOR 3 

4070 PLOT 18,32: DRfiNTO 23,32 

4080 PLOT 50,28: DRftWTO 54,28 

40a0 PLOT 67,22: DRflNTO 73,22 

4100 RETURN 



DECISION 
MAKER 



(Keyboard) 



This program will help you to make up your mind about 
something. First it asks how many options there are that you 
cannot decide between. Then it asks how many factors 
influence your decision (e.g. price, quality, size). You are 
then asked how you might rate a factor, which you do by 
typing in a number between and 100. 

After all data is entered and all options are listed, the one 
that the computer thinks you should choose is shown in 
inverse video. 
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40 • GAMES FOR YOUR ATARI COMPUTER 

■^.r_< h.ti ; ■•;••••;■• fc'T L-ribiio L-Hi-LtHLiLh. ■•;••••;■■ 

ii Ken ■■;••••;-■ HuHr i tu di r . cJUNN ■■;••■■;•• 

25 DIP! R$<32>t80SUB 39: GOTO 80 

30 GRAPHICS 8 

*H3 ot i LUL.UK £ j o j £ > DC I L-UL.UK 4 j- o j> d 

50 PRINT , "DECISION flAKER" 

by PRINT j *$ $£:s£:s ££££$ s$ " 

70 PR I KjT 



32 l HfiP 82 ! INPUT R$!Q=UAL<fi$} 

90 PRINT "HUH PlHNV FfiCTORS INFLUENCE DE 

ESI ON" 

10O TRAP 100: INPUT H$ 

110 F=UflL(fl$) 

120 DIP! 0$<0&32>*F$<F&32} 

1 30 Q$< 1 >= " " : D$< 0*32 >= " " « 0$< 2 >=0$ 

1 40 F$< 1 )= " i! : F*< F*32 )= " " : F£< 2 >=F$ 

150 GOSUB 30 

I by F OR h— 1 lu u 

170 ? "ENTER NOTE OF OPTION "ifi 

180 TRPP 130: INPUT fl$:TRAP 4OOO0 

1 90 0*< < A-l >$32+ 1 A A-l >*32+3 1 >=A$ 

200 NEXT H 

210 GOSUB 30 

220 FOR P=l TO F 

230 ? "ENTER NAPE OF FACTOR "ifi 

240 TRAP 240: INPUT R$:TRAP 40880 

250 F$< < A- 1 >&32+ 1 * < A- 1 >*32+3 1 >=ft$ 

280 NEXT H 

270 GOSUB 30 

288 Din PK0#F) 

298 FOR fi=l TO 

300 FOR 8=1 TO F 

318 GOSUB 38 

320 ? "HON HOULD VOU RATE "*F$<<8-1 >$32- 



50 ? 
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iE B , 0$< < ft- 1 :>S32+ 1 , < ft- 1 >*32+3 



j4y i NPu ! 'J 

359 fKHiBM 

36@ NEXT B 

370 NEXT H 

380 GOSUB 30 

330 ? "HERE IS HHHT I THINK VOU SHOULD D 



4 1 C-0 

420 FOR B=l TO F 

430 C=C+PKh,B> 

440 NEXT B 

450 IF OTOP THEN TOP=C:HO=fi 

460 NEXT R 

470 FOR H=l TO 

480 IF P=NO THEN FOR P=i TO 3 1 : L=< H- 1 >*3 
2+p: fi*=G$< L * L > : K=ftSC< H$ >+ i 28 : 0*=: L * L >=CHR 
I- 1 -. K .■' ■ Ntrt i r 



2+P:K=fisL:(n$<L J L)): IF K=16S THEN 0$< !_,!_> 

too lr H— rfU I ntr4 Nt.'-. I r 

488 ? 0$<<ft-l >X32+1 j(H-1 >£32+31 ) 

500 NEXT M 



SAFE 
CRACKER 



(Keyboard) 

This superb game was written by Terry Davies, and it re- 
quires a machine with a 24K memory. 

The object is to get as many coins from Mrs. Warren 
Fitzdobody's safes as possible. To open a safe, you must 
guess three numbers correctly. You enter your first number 
when asked, and if you are within ± 5 of the actual number, 
you will hear the safe mechanism click. If you take more than 
10 guesses for any number, the alarm is triggered and the 
police will arrive (you will see the flash of their headlights 
through the window). 

If you get the first number right, proceed to number two 
and then three. If you manage to guess all three numbers 
correctly (a probability of 1 in 970,299) the safe will open and 
you will receive some coins. You then proceed to another 
room and try again. 

Luck is involved in this game, but so too is skill. The skill 
involves learning the logic to crack the safe. After playing 
this game, you may think twice before practicing this art for 
real! 



d REP1 $£ SAFE CRACKER - '*'•£ 

3 REF1 tt WRITTEN BV TERRV DfiUlES tt 

4 rep! :m$:m:m.t&m:m-:mw:m:m-s 

5 GRAPHICS 2:FLHSH=0:p=lu:Din M*< 5 ;,D*< 3 
208>jC<4>.»PT$<S2}! T r=6 

10 POKE 798, P+ 19: POKE 709, 145: POKE 752,8 
: POKE 712*145! POKE r'l 0,145 
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25 POSITION 4,6:? #6; "safe cracker" : S08U 

B 6880 

39 IF PEEKX 53279 >=6 THEN 1000 

35 P=P+0.1:FLHSH=FLHSH+i:IF FLASH >50 THE 

N POKE 709,P:IF FLASH >50 THEN POKE 708,1 

45 : FLflSH=-20 : POKE 53279 , O 

4a IF FLASH=0 THEN POKE 709,145: IF FLASH 

=0 THEN POKE 70S, P: POKE 53279,0 

50 IF P<2O0 THEN 30 

1 OOO GRAPH I CS 7 : PX=4 : LC=40 : X=0 : V=0 

1005 GOSUB 5100 

1007 ? "PLEASE WHIT." 

1010 GOSUB 30000 

102O FOR 1=0 TO 4: POKE 708+ I , C< I > : NEXT I 

1030 GOSUB 5199 

1040 POKE 752,1: POKE 709,0:? :? " HE 

RE IS THE SHFE...SHHHHHH! ! ! " : FOR N=l TO 

1500: NEXT N:? CHR*<125> 

1043 ? " VOU BETTER PUT THE SIDE LIGHT 
N":? " THERE'S NO ONE AROUND .. PRESS STAR 

T":POKE 53279,0 

1045 IF PEEKX 53279 X >6 THEN 1045 

1050 POKE 709,202:? CHR*< 125 >i "THAT 1 9 BE 

ITER VOU CAN SEE NHAT VOU":? "ARE DOING 

NOW" I FOR M=l TO 2000: NEXT W 

1055 ? CHR$< 125 >: GOTO 2000 

10G0 GOSUB G00G 

1070 ? CHR*< 125 >i "PRESS START TO HAUE AN 
OTHER CRAD<" 

1071 POKE 710,30: FOR H=l TO 2O0: NEXT W:p 
OKE 710, 138: FOR N=l TO 99: NEXT H:POKE 71 
9,148: FOR H=l TO 250: POKE 710,138 

1072 FOR W=l TO 99: NEXT H:POKE 710, 148: F 
OR H=i TO 250: NEXT N:POKE 710, 138: FOR H= 
i TO 10y:NEXT httPOKE 710,148 

1073 FOR H=l TO 250: NEXT W:POKE 710,138: 
FOR W=l TO 100: NEXT N:POKE 710,148 
1074P0KE 53279,0: IF PEEKX 53279 ><>6 THEN 

1072 
1075 GOTO 1820 

2080 A=INT(RND< 1 >*S1 >+18: B=INT< RND< 1 >$81 

H10sC=INT<RND< 1 >S81 >+10: J=0 

2003 J=J+l:? M WHATS VOUR FIRST NUF1BER 
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1 TO 99 ": INPUT H: IF N>99 OR N<1 THEN 28 
93 

2085 IF J=ll THEN GOSUB 3950: GOTO 1060 

2006 IF NOfl THEN 2O0S 

2007 GOSUB 3350: GOTO 2499 

2006 IF N>0-5 AND N<fi+5 THEN G05UB 3980: 
SOTO 28w3 

2010 IF_N>fi+5 OR N<fl-5 THEN GOSUB 4000: G 

0T0 2003 

20 1 i GOTO 20O3 

2499 J=8 

2500 J=.J+l:? "WHHTS VOUR SECOND NUMBER": 
INPUT N: IF N>99 OR N<0 THEN 2580 

2513 IF J=ll THEN GOSUB 3950: GOTO 1060 
2520 IF NOB THEN 2530 
2525 GOSUB 3850 : GOTO 2999 

2530 IF N>B-5 AND N<B+5 THEN GOSUB 398G: 

SOTO 2580 

2535 IF N>B+5 OR N<B-5 THEN GOSUB 4OO0:G 

Ofo 2508 

2540 GOTO 2508 

2999 U=0 

SOOO ? " WHflTS VOUR THIRD NUMBER"! INPUT 

N.'IF N>99 OR N<8 THEN 3O0O 

30O5 J=.J+1 

3O10 IF .J= 1 1 THEN GOSUB 3950: GOTO 1068 

3028 I F N< >C THEN 3036 

3825 GOSUB 3858:? "VOU HfiUE OPENED THE S 
HFE " : .J=8 : COLOR @ : PLOT 4 1 , 38 : DRfiWTO 39 #16 

3826 J=.J+l:IF J>3 THEN 3828 

3827 DRFIWTO 4 1 + J , 16: DRRHTO 4 1 + J * 38 : GOTO 
3826 

3828 CO= I NT< RND< 8 >*200 >+ 1 88 : ? CHR*< 1 25 > i 
"NELL DONE , THERE NHS "iCOi" COINS IN": 
? "THAT SHFE ! ! " 

3829 TT=TT+CO:? "NOW TRV THIS ONE.....": 
FOR W=i TO 1888: NEXT N:GOTO 1828 

3838 IF_N>C-5 HND N<C+5 THEN GOSUB 3988: 

SOTO 3088 

3835 IF N>C+5 OR N<C-5 THEN GOSUB 4888 :G 

OTO 3000 

3048 GOTO 3888 
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3858 FOR 1=1 TO 100! SOUND 0,T, 10,8: NEXT 
T:? "VOU ARE RIGHT": SOUND 0,0,0,0: RETURN 

3900 FOR 8=20 TO 15 STEP -4: NEXT 8: SOUND 
0,N,10,14:FOR W=l TO 3: NEXT M: SOUND 0,0 
,0,0: RETURN 

3850 ? "BLiriEV ! ! VOU HAUE SET THE ALAR 
PI OFF":? "LETS SCARPER THE POLICE ":R 

=0 

3880 ? "VOU NICKED ";TT;" COINS FROP1 THE 

SAFES" ;:TT=8 

3888 FOR N=28 TO 15 STEP -4: NEXT N: SOUND 
O,N,i0,14:FOR W=l TO 33: NEXT N: SOUND 0, 
0,8,0: R=R+l: IF R=28 THEN RETURN 
3888 SOTO 3888 

400O ? " VOU ARE HRONG TRV AGAIN !":R 

ETURN 

5 1 80 DL=PEEK< 560 >+PEEK< 56 1 ::'*256 : FlEn=PEEK 
< 106 >#256: DAT=PEEKc: DL+4 >+256*PEEK< DL+5 ) 
5U38 RESTORE 52O0: FOR P=l TO 62: READ A:P 
T*< P , P >=CHR$( A > : NEXT P 
5118 ST=DAT+V*LC+ 1 NT< X^PX ) : RETURN 

5198 GOSUB 5110:A=USR<ADR<PT*>,ST,flOR<D$ 
::',BVT,LIN,LC::': RETURN 

5200 DATA 104,184,133,204,104,133,203,10 
4, 133,206, 104, 133,205, 104, 104, 133,207, 10 

4,184 

5210 DATA 170,104,184,133,208,164,287,13 

Dj 1 i 1 »iO-J 

ja^.k.i L<h I i-t i t-j , ao-5 , i _'b , i o£ , £ljj , £uo , ^4 f , ^t 

16T 

5238 DATA 283,181,208,133,283,144,2,230, 
204 , 24 , 1 65 , 285 ,101, 287 , 1 3 6 , 205 , 1 44 , 2 , 230 
5248 DATA 286,202,208,218,86 

S000 FOR •!=! TO 8: SOUND 0#47#10#8"FOR L= 

1 TO 188: NEXT L: SOUND 8,64, 18,8: F6R L=l 

TO 188:NEXi L:HEXT J 

688 1 SOUND 8 , 8 , 8 , 8 : RETURN 

20000 DATA O , O , O , O , O , O , O , O , 8 , 8 , 8 , 6 , 8 , , 8 

2000 1 DATA , , , , , ,8,8,8,8,0,0,0,0, 

20002 DATA 0,0,0,12,8,8,8,8,8,8,8,8,8,8, 

8 

28883 DATA 8 , 8 ,8,8,8, 8 , 8 ,8,8,8,8,0,0,1 85 
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20864 DATA 63, 255, 207, 255, 63, 2^,207, 2" 
, 63 , 255 , 207 , 255 , 1 92 , 1 32 , 

20005 DATA , ,0,0, , , , , , , , , , f 

20006 DATA 0,0,0,0,0,0,0,0,195,12,63,2" 
,207,255,63 

20007 DATA 255 , 207 , 255 , 63 , 255 , 207 , 255 , 1 3 
2, 192, 192,0, Li, 0,0,0 

20008 DATA ,0,0,0,0,0,0,0,0,0,0,0,0, , 

20009 DATA , , , 1 95 , 1 2 , 63 , 255 , 207 , 255 , 6 
3 , 255 , 207 , 255 , 63 , 255 

200 1 DATA 207 , 255 , 1 92 , 1 92 , 1 92 , , ,0,0,0 

,0,0,0,0,0 

20011 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,195 

Jill 

20012 DATA 63,255,207,255,63,255,207,255 
, 63 , 255 , 207 , 255 ,192,192,132 

20013 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

20014 DATA 0,0,0,0,0,0,0,0,195,12,63,2" 
,207,255,63 

200 1 5 DATA 255 , 207 , 255 , 63 , 255 , 207 , 255 , 1 9 
2,192,192,0,0,0,0,0 

20016 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

20017 DATA 0,0,0,135,12,63,255,207,255,6 
3 , 255 , 207 , 255 , 63 , 255 

2001S DATA 207,255,192,192,192,0,0,0,0,0 

,0,0,0,0,0 

20019 DATA 0,0,0,0,0,0,63,255,207,255,19 
2,0,0,195,12 

20020 DATA 63,255,207,255,63,255,207,255 
, 63 , 255 , 207 , 255 , 1 92 , 1 92 , 1 92 

20021 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

20022 DATA 0,63,255,207,255,192,0,0,195, 
12, 63 , 255 , 207 , 255 , 63 

20023 DATA 255 , 207 , 255 , 63 , 255 , 207 , 255 , 1 9 

2,192,192,0,0,0,0,0 

20024 DATA 0,0,0,0,0,0,0,0,0,0,0,63,255, 
207,255 

20025 DATA 192,0,0,195,12,0,0,0,0,0,0,0, 

0,0,0 

20026 DATA 0,0,0,192,192,0,0,0,0,0,0,0,0 

,0,0 

20027 DATA , 0,0,0, , , 63 , 255 , 207 , 255 , 1 9 
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2,0,0,135,12 

2002S DATA 63,255,207,255,63,255,207,255 

,63,255,207,255, 132, 192, 132 

20023 DfiTfl 0,0,0,0,0,0,0,0,0,3,255,255,2 

4@ , @ , 

20030 DfiTfl 0,63,255,207,255,192,0,0,195, 

2003 1 DfiTfl 255 , 207 , 255 , 63 , 255 , 207 , 255 , 1 9 
2,192,192,0,0,0,0,0 

20032 DfiTfl 35,65,35,85,92,0,0,12,0,0,0,6 

T OSS -'iTi" 0=^5 

20033 DATA 1 92 ,0,0,1 95 , 1 2 , 63 , 255 , 207 , 255 
, 63 , 255 , 20 7 , 255 , 63 , 255 

20034 DATA 207 , 255 , 1 92 , 1 92 , 1 92 , , , ,0,0 



20035_UflJfl 0,0,12,0,0,0,63,255,207,255,1 
32 , , @ , i yy , 1 d 

20036 DATA S3 , 255 , 207 , 255 , 63 , 255 , 207 , 255 
,63,255,ci0,-,255,192,192,192 

20037 DfiTfi 0,0,0,0, , 30 , , , , 43 ,0,0,3,0 

,0 

20033 DfiTfi 0,63,255,207,255,192,0,0,195, 

■i ■-• C-~i "lETC -;|"V"? "iCC r- — 

i il , DO , l1 ■_'-_' , ^itf t i C-JJ , DO 

20039 DfiTfi 255 , 207 , 255 , 63 , 255 , 207 , 255 , 1 3 
2,192,192,0,0,0,0,y 

2Q040 DfiTfi 30,0,0,0,132,0,0,3,0,1,35,35, 
y5,yy , y 

20041 DfiTfi 0,0,0,135,12,63,255,207,255,6 

20042 DfiTfi^ 207 , 255 , 1 32 , 1 32 , 1 32 , , , , , 
, 80 , ■_■ , i 95 j 3 , y 

20043 DfiTfi 0,0,0,1 32 ,1,64, 63 , 255 , 240 , 255 
,132,0,0,135,12 

29044 DfiTfi 63,255,207,255,63,255,207,255 
,63,255,207,255, 132, 132, 132 

20045 DfiTfi 0,0,0,0,0,30,16,51,3,0,0,0,0, 
iyy, 1 

20046 DfiTfi 63 , 35 , 35 , 240 , 255 ,132, , , 1 35 , 

12,0,0,0,0,0 

20047 DfiTfi 0,0,0,0,0,0,0,0,132,132,0,0,0 

,0,0 

20043 DfiTfi 30 , 4 , 1 32 , 1 2 , , , , , 43 , 1 , 63 , 8 
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28649 DATA 1 92*8 *8* 195* 12*63* 255*287 #255 

20059 DATA 207 * 255 , 1 92 * 1 32 , 1 92 * , * * * 

, oW j C'J j 1 Si j 4o , W 

20051 _ DHTfl 8*8*8*12*1*69*81*85*248*255*1 

92 , j'Jj 1 95 j 1 !i 

20052 DATA 63*255,287,255,63,255,207,255 

i~'"7 "iCC - -ti-L-n "iCC i i-i-- H |-i-- -f :-.- 

, bi , £-D-J , £.(3 I' , £.-J-_i , 1 di j 1 Z>lL , 1 3£ 

20053 DATA ,0,0,0,8, 68 , 68 , 3 , 1 92 , , * , 

•i •- •: 

20054 DATA 69 , 65 , 85 , 248 , 255 , 1 92 , 8 , 8 , 1 95 , 
1 2 , 63 , 255 , 207 , 255 , 63 

28855 DATA 255 , 287 , 255 , 63 , 255 , 287 , 255 ,19 
2,192,192,8,8,8,8,8 

28856 DATA 88 , 28 , 1 92 , 1 92 , 8 , 8 , 8 ,8,3,1, 69 , 

"■IT i-i C" "I .i f-i OrC 

b-j , oo , ii4u , c. jO 

20057 DATA 192,0,0,195,12,63,255,207,255 
, 63 , 255 , 287 , 255 , 63 , 255 

28858 DATA 207 , 255 , 1 92 , 1 92 * 192 *3 * 1 92 , * 

,0,88,16,195,8,8 

28059 DATA 0,0,0,3,1, 69 , 85 , 85 , 248 , 255 , 1 9 
2,8,8,135,12 

28868 DATA 63,255,287,255,63,255,207,255 
,63,255,207,255, 192, 192, 192 

2886 1 DATA 48 , 8 ,8,8,8, 88 , 88 ,8,1 78 ,178,17 
0, 170, 170, 178, 194 

28862 DATA 69,8,85,248,3,8,8,8,195,12,63 
,255,287,255,63 

28063 DATA 255 , 207 , 255 , 63 , 255 , 207 , 255 ,19 

2*192* 195*8*8*8*8*0 

28864 DATA 88 , 64 , 1 92 , 8 , 38 *2 *64 *8*8 * 2 * 69 , 

O-J , OJ , £.4b , £.-_' •_> 

28065 DATA 192,8,0,195,12,63,255,207,255 
, 63 , 255 , 287 , 255 * 63 * 255 

28866 DATA 287 , 255 ,132,1 32 , 248 ,8*8* 8 ,8,0 

,88,76,12,132,8o 

28867 DATA 2,64,8,6,2,63,85,85,248,255,1 
Oil , t< * eJ * i oV> , i £. 

28866 DATA 63,255,287,255,63,255,287,255 
,63*255*287*255*192*195*8 

28863 DATA 8,8,8,8,0, 88 ,8,8,8, 88 , 2 , 64 , 8 , 

20070 DATA 63,85,85,248,255,132,8,8,135, 
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12*8*0* 192.*8.,8 

2907 1 DfiTfl a , #0*0*12* , , * 240 , 1 92 , * 8 , 

0,0,0 

£0072 DfiTfi 88, 0,0,0, 88,2, 64,8,0, 2, 69,95, 
85,240,255 

20073 DfiTH 192, 0,8, 195, 12, 63, 255, 25^,25!=; 
, G3 , 255 , £07 , 255 , G0 , 1 5 

20074 DfiTfi 207 , 255 , 207 , ,8,8, 8 , 8 , 8 , 8 , 88 , 
8,8,8,88 

20875 DfiTfi 2 , 64 , 8 , 8 , 2 , 69 , 85 , 85 , 248 , 255 , 1 
82,8,8,3,12 

28076 DfiTH 63,255,207,255,63,255,207,255 

cr -i lt ~ii"j-7 -ice *~tA fla -t i-j-- .- 
, -_ib , i _i , £Xt i , ^_i-_i , itO , 1 3£. * to 

28077 DfiTfi 8 ,8,0, , , 98 , 1 78 , 1 78 , 1 78 , 88 , 2 
, b4 , 8 , 8 , £ 

20078 DfiTfi 69 , 85 , 85 , 240 , 255 , 1 92 ,0,0,3,12 
#63 * 255 , 287 , 255 , 63 

20079 DfiTfi 255,287,255,56,15,287,255,8,8 
,192, 8 , 8 , 8 , , 8 

28888 DfiTfi 85 , 85 , 85 , 85 , 88 , 2 , 64 , 8 , 8 , 2 , 74 , 

--CC -»etc -i.iH -.:rcr 

£8881 DfiTfi 18£, 8, 8, 3,1 £,63, £55, 207, 255, 6 

-7 -ice- -if-i - ? "re E-i-- -j cr 

20082 DfiTfi 287 , 248 , 1 82 , 8 , 1 92 , 8 , 8 , 8 , 8 , 8 , 8 

,8,8,0,8 

£0083 DfiTfi £ , 64 , 8 , , £ , 85 , 85 , 85 , 80 , 255 ,19 
2 , , , 3 , 1 ll 

28084 DfiTfi 63,255,207,255,63,255,207,255 

, _ib , 1 _i , £.£1 r , 1 £. 1 ■!• , i dd , i 3£ 

20085 DfiTfi 8 , 8 , , 8 , 8 , 8 , 8 , 8 ,8,8,2, 64 , £1 , 8 , 
@ 

28886 DfiTfi 8,8,8,8,8,8,8,8,3,12,63,255,2 

87,255,63 

£8087 DfiTfi 255 , 207 , 255 , 56 , 1 5 , 1 92 ,8,3,1 92 

,192*0*0*0*8*8 

20883 DfiTfi 8 , #0 , 8 , 8 , £ , 64 , 8 , 8 , 8 , fi , 63 , 255 

,287,255 

20088 DfiTfi 192,8,0,3,12,63,255,287,255,6 

-7 --ETC" -ii - -! - ^ ~tCC" cr t •- 

20090 _ DfiTfi 8 ,8,1 95 ,192,1 92 , 8 ,8,8,8,8, 8 , 8 

,8,0,8 

£889 1 _ DfiTfi _ 2 , 64 , 8 , 8 , 8 , 8 , 63 , 255 , 287 , 255 , 1 

9£ ,8,8,3, 1 £ 
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28092 DATA 0»0#0#0#8#0*0#8*8*0j.0*12*3#13 

2 j 132 

26093 DATA 0*0*0*8*0j-8#8#8#8*0#2#64*8*0j 

20094 DATA 0,63,255,207,255,192,8,8,3,15 

--C-ET -iC-IT -iETE- ".CL -flTEr 
, Ll ■_'•_! , l! ■_!_' , il-.'-J , il _'-_' , filJJ 

20895 DATA 255,255,255,251,12,68,255,195 
,132, 192,8,8,8,8,8 — 

29896 DATA 8,0,0,8,8,2,64,8,8,8,8,63,255 

28097 DATA 192,0,0,3,12,8,8,8,8,8,8,0,8, 

1 1 , y 

2809S DATA 12,12,3,192,192,0,0,0,0,0,0,8 

, , y , @ 

20099 _ D ATA _ 2 , 64 ,0,0,0,0, 63 , 255 , 287 , 255 , 1 _ 

9Li , , , 3 , Id 

28188 DATA 8,8,0,8,8,8,8,8,11,0,12,12,3, 

192,192 

20101 DATA 0,8,8,8,8,8,8,8,8,8,2,64,8,8, — - 


28182 DATA 8,63,255,287,255,192,0,0,3,12 

,0,8,8,0,8 

20103 DATA 0,0,0,11,12,12,12,3,192,192,0 

,0,8,8,8 

28184 DATA 8,8,8,8,8,2,64,8,8,8,8,63,255 

■ - ifj~? -iiz-c- 
t£J3( ,^._ij 

28185 DATA 192,8,8,3,12,8,8,8,8,8,8,8,8, 

11,12 

20 1 06 _ DATA 12,12,3,192,192,0,0,0,8,0,0,0 

, , , 6 _ 

20107 DATA 2,64,0,0,8,8,8,8,8,8,8,8,8,3, 

28188 DATA 8,8,8,8,8,8,8,8,11,12,12,12,3 

•i i-j-i ^ Ci'~ 

, J. dil , I SC — 

28 1 89 DATA 8,8, 8 , 8 , 8 , 8 ,0,8,8,8,2,64,8,8, 

28118 DATA 8,8,8,8,0,8,8,8,3,12,8,0,0,0, 

20111 DATA 0,8, 8, 11, 12,12,12,3,192, 192, 8 
, , , @ , 

28112 DATA 8,8,0,0,8,2,64,8,8,8,8,8,8,8, 

28113 DATA 8,8,8,3,12,0,8,8,8,8,0,0,0,11 
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20114 DATA 12, 12, 3, 192, 192, 0,0, 0,0, 0,0,0 

,0,0,6 

20115 DATA 2,64,0,0,0,0,0,0,0,0,0,0,0,3, 

•i ■-( 
i i£. 

20118 DATA 0,0,0,0,0,0,0,0,11,12,12,12,3 
,192,192 

20117 DATA 0,0,0,0,0,0,0,0,0,0,2,64,0,0, 



20118 DATA 0,0,0,0,0,0,0,0,3,12,0,0,0,0, 



20119 DATA 0,0,0,11,12,12,12,3,192,192,0 

,0,0,0,0 

20120 DATA 0,0,0,0,0,2,64,0,0,0,0,0,0,0, 

20121 DATA 0,0,0,3,12,0,0,0,0,0,0,0,0,11 

20122 DATA 12,12,3,192,192,0,0,0,0,0,0,0 

,0,0,0 

20123 DATA 2,64,0,0,0,0,0,0,0,0,0,0,0,3, 
±±. 

20124 DATA 0,0,0,0,0,0,0,0,11,12,12,12,3 
,192,192 

20125 DATA 0,0,0,0,0,0,0,0,0,0,2,64,0,0, 



20126 DATA 0,0,0,0,0,0,0,0,3,12,0,0,0,0, 



20127 DATA 0,0,0,11,12,12,12,3,192,192,0 

,0,0,0,0 

20128 DATA 0,0,0,0,0,2,64,0,0,0,0,0,0,0, 



20129 DATA 0,0,0,3,12,0,0,0,0,0,0,0,0,11 

tltm 

20130 DATA 12,63,255,192,192,0,0,0,0,0,0 

,0,0,0,0 

20131 DATA 2,64,0,0,0,0,0,0,0,0,0,0,0,3, 
12 

20132 DATA 0,0,0,0,0,0,0,0,11,12,12,51,1 
92,252,63 

20133 DATA 192,195,195,15,192,0,0,0,0,0, 
_ 2,64,0,0,0 

20134 DATA 0,0,0,0,0,0,0,0,3,12,0,0,0,0, 
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2Q135 DATA 0*0*0#7#i2#12#48#252j.i32»i92» 

@ , , 1 ^ 

20136 DflTfl 0,0,0,0,0,2,64,0,0,0,0,0,0,0, 

H 

20137 DflTfl 0,0,0,3,0,63,243,252,255,63,2 
07 , 243 , 240 , 247 , i 2 

20 1 38 DOTH 207 , 240 , 1 5 , 1 92 , 48 , , ,0,0,0,0 

,0,0,0,0 

20139 DflTfl 2,64,0,0,0,0,0,0,0,0,0,0,0,0, 



20140 DATA 0,0,0,0,0,0,0,0,7,12,12,48,3, 

1 Q~' \>- 
j. CU. , t' 

20141 DflTfl 0,0,0,0,0,0,0,0,0,0,2,64,0,0, 


20142 DflTfl 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

20143 DflTfl 0,0,0,7,11,255,252,0,240,0,0, 

0,0, 0,0 

20144 DflTfl 0,0,0,0,0,2,64,0,0,0,0,0,0,0, 



20145 DflTfl 0,0,0,0,0,15,255,63,207,207,2 

4-7 -tC- - i -tCC* CC- -i 
■!.• , £.-J£. , il ■_!-_■ , ■_'■_" J il 

20146 DflTfl 192,12,0,63,0,0,0,0,0,0,0,0,0 

,0,0 

20147 DflTfl 2,64,0,0,0,0,0,0,0,0,0,0,0,0, 

29 1 48 DflTfl @ * 8 * @ # r »0*0 * * 4 j 2 * 1 76 * * 48 * 

15,192 

20 1 49 DflTfl , , , , ,0,0, ,0,0,2, 64 , , , 



20150 DflTfl , , , , , , , , , , , , , , 

20151 DflTfl 0,0,0,7,0,172,0,0,0,240,0,0,0 

,0,0 

20152 DflTfl 0,0,0,0,0,2,64,0,0,0,0,0,0,0, 

y 

20153 DflTfl 0,0,0,0,0,0,255,243,252,252,2 
•_'ll , i. •_!•_• , bJ , 1 dd i j. ac 

20154 DflTfl 40,0,3,0,12,0,0,0,0,0,42,170, 

170,170,170 

20155 DflTfl 170,170,170,165,35,85,85,85,8 

20156 DflTfl 0,0,0,0,0,0,0,0,4,51,10,0,0,0 

20157 DflTfl 0,0,0,0,0,0,0,0,0,0,2,64,0,0, 
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28 1 58 DflTfl 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 ,0, 8 , 8 , 8 , 8 

28159 DflTfl 8,8,8,4,12,194,128,8,48,8,248 
,8,0,8,8 

28188 DATA 8,8,8,8,8,2,64,8,8,8,8,8,8,8, 
a 

28161 DATA 8,8,8,8,8,8,8,8,8,8,8,8,8,8,3 

28162 DATA 8,168,8,8,8,12,8,8,8,8,8,8,8, 
, 8 

28163 DflTfl 2,64,8,8,8,8,8,8,8,8,8,8,8,8, 

28164 DflTfl 8,0,0,0,0,8,0,0,0,0,48,40,0,3 

28165 DflTfl 3,255,255,255,252,8,8,8,8,8,2 
j 64 , , @ , S 

28 1 66 DflTfl , , , , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , , , a 
28167DATA 0,0,8,0,8,12,10,0,0,192,3,192 

,0,0,0 

20168 DflTfl 0,0,0,0,0,2,64,0,0,0,0,0,0,0, 



20 1 69 DflTfl , , , , , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 
28 1 78 DflTfl 51,8,1 28 , 8 , 48 , 3 , 1 92 , 8 ,8,8, 8 , 

,0,0,0 

28171 DflTfl 2, 64, 8, 8, 8, 8, 8, 8, 8,0, a, 0,8, 8, 

28172 DflTfl 8,8,3,0,0,8,0,0,0,0,12,0,32,0 

•i cr 
, 1 -J 

20173 DflTfl 3,192,0,0,8,0,0,0,10,170,170, 
170, 17a, 16a, a 

20174 DflTfl 0,2,168,18,178,138,128,21,72, 
78,5, 143, 197, ZZ6*d55 

28175_ DflTfl 243,255,8,8,8,3,8,8,0,8,195,1 
yii!,a,a,u 

28 1 76 _ DflTfl 8 , 8 , 8 , 42 , 1 78 , 1 78 , 1 70 , 1 78 , 1 68 , 

a , a , 4z , 1 zy , 1 54 » 1 86 

28177 DflTfl 8,5,85,69,65,127,8,8,8,8,8,8, 
8,8,0 

28178 DflTfl 8,192,2,0,8,51,192,0,0,0,0,0, 
d. , 1 7a , 1 7a 

20179 DflTfl 178, 178, 178, 178, 128,2, 178, 138 
, 1 7a , i 68 , a , 1 3w , d. i , 'd. i , 7 1 

28188 DflTfl _ 2 13, 255, 255, 223, 287, 248, 255,2 
52, 8, 8, 8, 48, 8, 128,8 
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£3 181 DflTfl 15,132,8, 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 

8,8 

£8132 DflTfl 43,243,68,42, 135, 254, 63, 295* 2 
55,245,83,81 ,35,255,284 

28183 DATA 243, 63, 252, 8, 8, 8, 12, fl, 32# 8,3# 

132,8,8,8 

28134 DflTfl 8,8,8,8,8,8,8,8,8,8,168,32,5, 
28 1 85 DflTfl 1 63 , 42 , 1 78 , 2 1 , 73 , 245 , 8 , 8 ,0,4, 

■+, ± jb-j/ >i!,b 

20136 DflTfl 0,3,0,11,255,255,132,0,0,0,0, 
8 , 8 , 8 , 8 

£8137 DflTfl 8,0,0,0,42,170,138,170,170,42 

, i bo , 1 b-.i , O-J , £JJ , ^4- .J 

28138 DflTfl 127,241,63,255,287,207,207,25 
5,132,0,0,0,132,12,9 

20133 DflTfl 8,8,8,8,8,8,8,8,8,8,8,8,8,2,1 
78 

28 1 38 DflTfl 168,18,178,1 68 , 1 78 , 1 68 , 1 , 84 , 1 

65,78,5,81 ,85, y5, 287 

£8131 DflTfl £87, £07, £55, £48, 0,0, 0,0, 12,0, 

0,0,0,0,0 

£8 1 92 DflTfl 8 , 8 , 8 , 8 ,8,8, 8 , 8 , 8 , 8 ,8,8, 8 , 8 , 8 

£8 1 33 DflTfl , , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 

£8134 DflTfl 8, 8, 43, 12, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8 

,8 

£8135 DflTfl 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 ,8,8, 8 , 8 , 8 

28136 DflTfl 8,8,8,8,8,8,8,8,8,8,8,8,12,12 

,8 

£8 1 37 DflTfl 8 , 8 ,8,8, 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 

28 1 98 DflTfl 8 , 8 , 8 , 8 , 8 , 8 , 8 *0 , , 8 , 8 , 8 , 8 , 8 , 8 

£8133 DflTfl 8, 8, 8, 8, 8, 8, 8, 3, 1£, 8, 8, 8, 8,8, 

28288 DflTfl 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , , 8 , 8 , 8 

2828 1 DflTfl 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 ,8,0,0,0, 8 

£8282 DflTfl 8 , 8 , 8 , 284 , 8 , 8 ,8,8, 8 ,8,8,8, 8 , 8 

,y 

£8283 DflTfl 0,0, 8 , 8 ,8,8,8, 8 , 8 , 8 ,8,8, 8 , 8 , 8 

28284 DflTfl 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 48 , 



28285 DflTfl 8 , 8 , 8 , 8 , 8 ,8,8,8,8,8,8,8,8, 8 , 8 
28206 DflTfl 8 ,0,8,8, 8 , 8 , 8 , 8 , 8 , 8 ,8,8,8,8, 8 
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20207 DATA 0,0,0,0,0,0,0,0,12,0,0,0,0,0, 


20208 DflTfi , , ,0,0, , , , , ,0,0, , , 

20203 DATA 0,0,0,0, , @ , , , , a , a , , @ , , 

20210 DATA 0,0,0,0,12,0,0,0,0,0,0 

30000 BVT=40 : L I N=79 : 8R=? : C< >=6 : C< 1 >=0 : C 

( v }= 1 48 : C< 3 >=70 : C< 4 >=0 

30010 RESTORE 20000: FOR P=l TO 3143 

30020 READ A : D*C P , P >=CHR*': A ;■ 

30O30 NEXT P 

30040 RETURN 



TANK BATTLE 



(Two joysticks) 



In this game, designed for two players, you move your tank 
and fire so as to destroy your opponent. This gives you one 
point. Pushing the joystick up activates the tank's engines 
and propels it forward. Push the joystick left and right to turn 
left and right, respectively. Push the red button to fire. Good 
hunting! 



2 REP! t 
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— - j— jj - rn -*■ 
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Ifi DIH F1*<20)#F2*<20>*X<8>»V<8>!FI*<1>= 

CHR$< i 72 > : F 1 $< 20 >=CHR$< 1 72 > : F 1 1-< 2 >=F 1 $ : F 
-i.t_u ii 

£.4— » j f j j j j u / i i ; j j 

20 RhP1=PEEK< 196 >-16: POKE 756*RflT): IF PEEK 
(203K>200 THEN 80SUB 890! POKE 203*206 
30 RESTORE 360: FOR Q=i TO 8:REftD XX#W:X 
( q >=yy : V< Q >=VV : HtXT Q s C 1 = 1 s C= 1 

40 GRAPHICS 2 

50 '? #6;" tank battle ! ' 

60 ? #Si H ttt&ttttttttt" 

70 ? :? " ENTER TIRE TO PLFiV "a INPUT TI 

80 REP1 

Hfi GRAPHICS 17: POKE 756, RON: Fl = 14: F2=14: 

X=5:V=14:Q=15:H=5:FFl=i:FF2=l 

100 3=STICK<0>:IF 3=7 THEN 0=0+1: IF OS 

THEN C=l 

: C<1 THEN 0=8 

56 
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1£@ IF S=14 THEN COLOR 32" PLOT X.»V:X=X+X 

( r: ) ; v=V+V< C ')'• SOUND 8 #288*8 #8 

ISO IF S<>14 THEN SOUND 0,6,0,0 

146 IF X<2 OR SMS THEN X=X+-X<C*:X=<X=2 

)«8+<X=18>:*:2 

150 IF V<2 OR VMS THEN ¥=Y+-Y<C>: V=< V=2 

>tl 8+'; ¥=18 >$2 

ISO COLOR C:PLOT X*V 

170 IF STRI8<8>=8 AND FF1=1 THEN GOSUB 3 

ISO IF 3TRIG<1>=8 AND FF2=1 THEN 80SUB 5 

ISO S=STICK<1>:IF S=7 THEN C1=C1+1:IF CI 

>S THEN Cl=l 

2O0 IF S=ll THEN Cl=Cl-l:IF Cl<2 THEN CI 

219 IF s=i4 THEN COLOR 325 PLOT Q # H"Q=Q+X 
< C1>:W=W+V< CI >: SOUND 1,188,8,8 

220 IF S<>14 THEN SOUND 1,0,0,0 

230 IF Q<2 OR QMS THEN Q=S+-X< CI >: Q=<Q= 

2)$i8+< Q=18>$2 

240 IF N<2 OR H>18 THEN W=N+-V< C 1 > : H=< H= 

1 s J-&2-K H = 2 )•& i s 

250 COLOR CI : PLOT Q,M 

280 IF FK1 THEN POSITION 8,21:? #6, "out 

o t shots " : FF 1 =0 : SOTO 280 
270 POSITION 8,21:? #6i"shotsl"iFl$( 1,F1 

--. - II !1 

/ j» 

2S8 IF F2<1 THEN POSITION 8,22:? #6; "out 
of shots" :FF2=6: 88T8 388 
2S8 POSITION 0,22:? #6; "shots2" ;F2*< 1,F2 

■-. . ii H 

.-' j 

3yy POSITION 5j«0«? #6#Sls POSITION 15*m:* ? 
#6*82: POSITION 8,0:? #6; "TIPIE" : POSITION 

3r 1 « I »b, il'1 I '-. i ± .' r 

310 IF PEEKX 5327S >=6 THEN 88T0 38 

320 Tl=TI-8. lsIF TK8.1 THEN 888 

338 80T0 108 

340 x 1 =X+X< C > : V 1 =¥+V< C ) 

358 IF C=l OR C=5 THEN FC=18 

388 IF C=3 OR C=7 THEN FC=12 

370 IF C=2 OR C=G THEN FC=11 
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38U IF C=4 OR C=8 THEN FC=13 

336 FOR F=l TO 5: LOCATE XI .»Y1 « XX: COLOR F 

C:PL0T XI, Yl 

4fiM IF XX<>32 AND XX<10 THEN hH:=;I IB 700 :S 

i=Sl+l:HH=ls80T0 450 

410 SOUND 0,255-F*50,8, 15: SOUND 1,150-FS 

30,8,155 

420 IF Xl>18 OR XK1 THEN 450 

430 IF Vl>18 OR VK1 THEN 450 

440 X1=X1+X<C>:Y1=Y1+Y<C}:NEXT F 



460 FOR E=l TO 5: COLOR 32: PLOT XI, VI 

470 IF Xl>18 OR XK1 THEN 500 

48W IF Vl>19 OR VK1 THEN 500 

490 Xl=Xl+X<C):Vi=Yi+Y<C>:NEXT E 

500 SOUND , , , : SOI IND 1 , 9 , , : F 1 =F 1 - 1 : 

IF HH=1 THEN HH=0:GOTO 90 

510 RETURN 

520 X2=Q+X< C 1 > : V2=H+V< C 1 ) 

530 IF Cl=l OR CI =5 THEN FC=10 

540 IF Cl=3 OR Cl=7 THEN FC=12 

550 IF CI =2 OR CI =6 THEN FC=11 

560 IF CI =4 OR CI =8 THEN FC=13 

570 FOR F=l TO 5: LOCATE X2,V2, XX: COLOR F 

C:PLOT X^,V2 

580 SOUND m , 2^5— F:^^m , F: , l Pi : ;=;i"ti IND 1*150-F# 

30*8,15 

590 IF XX<>32 HND XX<10 THEN GOSUB 750: S 

2=S2+l:HH=l:60T0 636 

GOO IF X2>18 OR X2<1 THEN 630 

610 IF V2>18 OR V2<1 THEN 630 

620 X2=X2+X< C 1 > : V2=V2+V< C 1 '? : NEXT F 

630 X2=Q+X( CI >! V2=N+V( CI ) 

640 FOR E=l TO 5: COLOR 32: PLOT X2A'2 

650 IF X2>18 OR X2< 1 THEN 680 

660 IF V2>19 OR V2< 1 THEN 680 

670 X2=X2+X(C1 ): V2=V2+Y< CI >:NEXT E 

680 SOUND O , O , O , O : SOUND 1 , ,8, : F£=F2- 1 : 

IF HH=1 THEN HH=0:6OTO 36 

690 RETURN 

700 FOR 6=15 TO STEP -3 



™ 
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71@ FOR H=8 TO 2 

720 SOUND H,RND< 1 X&58+ 100,8 »6 

730 NEXT H 

740 NEXT 6: FOR 8=0 TO 2: SOUND 8,0,8,0: NE 

XT 6:p,ETURN 

758 FOR 8=15 TO 8 STEP -3 

768 FOR H=8 TO 2 

778 SOUND H,RND< 1 ;'*58+ 1 08 , 8 , 6 

788 NEXT H 

738 NEXT 8: FOR 8=8 TO 2: SOUND 8,8,8,8: NE 

XT b:p.ETUKN 

see position 5,10:? #6;"6AnE ouer" 

818 S1=0: S2=0: FOR 0=1 TO 5 

820 SOUND O , 1 ee+C ,10,15: SOUND 1,1 20+C , 1 

,15:SUUND 2,80+0,18,15 

838 0=0-1: IF 0=-36 THEN 858 

840 SOTO 828 

850 0=0: NEXT Q 

860 FOR Q=0 TO 2: SOUND Q,0, 0,0: NEXT Q 

870 IF PEEKX 5327S )=6 THEN RUN 

388 POKE 53278,8: SOTO 378 

898 FOR Q=8 TO 1824: fi=PEEK< 57344+Q >: POKE 
KAP1S258+Q,A:NEXT Q:C=8 

800 READ R:IF A=-l THEN RETURN 

910 POKE RfiP!£L£56+C , A : 0=0:+ 1 : GOTO 300 

920 DATA 24,24,213,213,255,255,255,219,2 

5,58,188,249,187,62,12,^4,254,254,48,127 

, lii7,4o * 254 * £.54 

325 DATA 24,12,62,1 87 , 243 , 1 00 , 50 , 25 

330 DATA 213,255,255,255,213,213,24,24,2 
4,50, 124,221 , 153,38,76, 152 
335 DATA 127,127,12,254,254,12,127,127,1 
52,76,38, 159*221 , 124#50#24 

940 DATA 112,120,248,254,255,127,68,56,2 

4,24,24,24,24,^4,24,24,1,2,4,8,16,32,64, 

1 28 , , , , ii55 , ii55 , , , 

950 DATA 128,64,32,16,8,4,2,1,-1 

368 DATA 8,-1,1,-1,1,8,1,1,8,1,-1,1,-1,8 

^ -i 



DIGIT DODGE 



(Keyboard) 



Use the keys "Z" and "X" to move your number cruncher. 
Press "." to shoot and crunch any numbers the same as those 
shown on the number cruncher. Destroying a mystery 
points character ("*") adds a bonus to your score. When the 
invading numbers reach your digit dodger, the game is over. 

v bu ( U i ■;•-_•« hfc.11 ■■;••••;•■ Uibi I uuubt dt r.eUNN 

1 FOR 1=59 TO 75 STEP 2: SOUND 8., 1 ,16, 15: 
NEXT I:I=y:V=Pl+48:IF r1=10 THEN V=l@ 

2 Q$=CHR*<¥>:IF fl*< 1 , 1 >=Q$ THEN I=1:S=S+ 

U3 

3 IF fi$<2,2>=Q* HND 1=0 THEN H*<2,2)=fl*< 
IjI >: I=l:S=S+28 

4 IF H*<3,3>=Q$ HND I=0 THEN fi*< 3 , 3 >=f\$< 

2.2 >: M< Z*2 >=H*f: 1 , 1 >: I=i : S=S+38 

5 IF H*'::4,4::'=Q$ HND 1=0 THEN fl$< 4 , 4 >=(&< 
3,3>:fi$'::3,3 >=A$'::2,2 >:fi$< 2,2;'=fi*<:: 1,1 >: 1 = 1 
: S=S+40 

6 IF H*':5,5>=Q* AND I=0 THEN fi*< 5 , 5 >=H$< 

4.4 >: ftp:. 4,4 >=fi$< 3,3 >: R$< 3,J >=H$< 2,2 >: 1 = 1 
: S=S+50 

7 IF R$<8#8>=Q* AND 1=0 THEN H$< S , S ;=(&< 

5.5 >: fl$< 5,5 >=fi*< 4,4 >: fl$< 4,4 >=H*< 3*3 >i H*'; 

3.3 ;'=H$< 2*2 >: 1 = 1 : S=S+Sti 

3 IF 1=1 THEN fl*<l,l>=" ":N=N+1 

10 IF 1=1 HND Q*=CHR*< 10> THEN FOR 1=255 
TO 20 STEP -IS: SOUND 0,1 , 10, 15: NEXT I:S 

=S+< INK RND< ::'S7+3 >tl00 :.' 

11 POSITION 1,0:? #S,-SC*iS:? #bi" high J 
";HS 

12 SOUND 8,0,0,0: RETURN 

20 FOR 1=14 TO STEP -2: SOUND 0,H+ 15*38 
,10,1: NEXT I : RETURN 

135 DIP! ftK"6).»Q$< 1 >,SC$< 6):G0SUB 2088 
140 GRAPHICS 2:SETC0L0R 4,2,2: SETCOLOR 2 

60 
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•-: A 

158 A$=" ":fl*<6#6>=CHR*< RND< 8 >$3+48 :> 

1 60 S=0 : N=5 : H=0 : U= 1 8 : GOSUB 1 1 

165 V=P1+48:IF Pl=10 THEN V=10 

176 P03ITI0H 5,5:? #6iCHR*< V>; " : " ;A$ 

1 80 I =PEEK< 764 >: 1 2=PEEK< 53775 > 

198 IF 1=22 AND 12=251 THEN 1*1=11+ 1 : GOSUB 
20: IF Pl>10 THEN 1*1=0 

200 IF 1=23 AND 12=251 THEN 1*1=0-1: GOSUB 

20: IF PK8 THEN 11=10 
210 IF 1=34 AND 12=251 THEN GOSUB 1 
215 1=0 

220 TRAP 1000:0=0+1: IF <MJ=INT<Q/U> THEN 
H*(N,H >=CHR*< RND< O >* 1 0+48 > : I = 1 

222 IF 1 = 1 THEN IF U$< N,N;'=CHR$<58:> THEN 

fl*(N,N)=CHR*(ie) 

224 IF 1=1 THEN N=N- 1:1=0 

225 IF INT'::RND<0>:?:20;'=3 THEN U=U-i:IF U< 
8 THEN U=8 

230 TRAP 40000: GOTO 165 

1000 ? #6:? #6;". . invaded. . ":FQR 1=90 TO 

220 STEP ll:FOR H=80 TO 90 STEP 2: SOUND 

0,H, 10* 15: SOUND 1,1,10,15 
1010 SETCOLOR 4,H,4 
1020 POKE f"09,INT'.:RND<0>:?:l5>Sie+8 
1030 NEXT H:NEXT I : SETCOLOR 4,2,4: POKE 7 

r- a -ice 

1 040 SOUND , , , : SOUND 1 , , , : I F S >HS 
THEN HS=S: POSITION 0,2:? #6 i "high score 

1 I | | II 

1050 ? "ANOTHER TRV "*:TRfiP 1050: INPUT A 

.+- 

JE- 

1855 IF A*< 1,1 >="N" THEN GRAPHICS 0:? "G 

OGOBVE. ":? :? :END 

I860 IF fi$<l,l>= H V M THEN 14W • 

1078 GOTO 1858 

2888 FOR P=l TO 6 

2818 READ N 

2828 sc*<p,p>=chr*':n::' 

2838 NEXT P 

2848 DATA 243 , 227 , 239 , 242 , 229 , 1 86 

2858 RETURN 



GRAND PRIX 2 



(Joystick) 

Use the joystick to control the car as it speeds down the 
track. If you manage to reach the finish you win a bonus and 
step value is doubled for your next run. 

18 REP! t* GRAND PRIX 2 - P.BUNN tt 
15 P I =5 : SOSUB 3000 : CRPSH= 1 088 
28 X2= 1 4 : X= 1 1 6 : S=PEEK< 1 88 >-8 : Q=S£256 : FOR 
N=Q+512 TO Q+648:P0KE N, 8: NEXT N:POKE 5 
4279,3 

38 POKE 559,43: POKE 53248, X: POKE 784,216 
:POKE 784,78: POKE 53258,1 

48 FOR N=Q+552 TO 0+561: READ ft: POKE N,A: 

NEXT N 

58 DflTfi 129,135,165,24,24,153,213,165,36 

,ii'4 

88 GRAPHICS 8:SETC0L0R 2,8,8: POKE 53277, 
3: POKE 559,46 

85 POKE 752,1: POKE 53278, A 

66 FOR P=8 TO 23: POKE 281,X2:? ,32$: NEXT 

r 

78 :-;=>; T I HK 1 - 8 > : X=X+"- 3=7 >$2 : X=X-( 3=11 -'£2 : P 

OKE 53248, X 

72 SOUND 8 , 48 , 1 8 , 1 5 : SC=SC+P I : SOUND 8,8, 8 

,8 

75 IF THEN 0=8 :Z=2: GOTO 118 

88 H=PEEK':: 53778 > 

98 IF A>85 AND fl<178 THEN Z=2 

188 IF H>178 AND X2<15 THEN Z=3:0=l 

185 IF A<85 AND X2>2 THEN X2=X2-1:Z=1:0= 

1 

118 POKE 281,X2 

115 IF fi=132 AND NOT I THEN ? ,F$:I=l:G 

0T0 145 

128 IF Z=l THEN ? ,81* 

62 
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139 IF Z=2 THEN ? ,S2$ 

148 IF Z=3 THEN ? ,S3$:X2=X2+1 

145 V=PEEK< 53252 >: IF V<>8 AND I THEN GOT 

2000 

150 IF VO0 THEN GOTO CRASH 

160 GOTO 7G 

1000 REP1 :?::?: VOU CRfiSHED! ## 

i@l@ N=INT<RNCK8>#18>:P0KE Q+552+N,PEEK< 

53770 >: SOUND 8*RNCK8>:fc28+28#80, 15: POKE 7 

04 ,PEEK< 53770) 

1020 IF PEEK< 53770X240 THEN 1018 

1030 POKE 53248,0:"' :? "VOU SCORED :" ; SC : 

? :? :? "HIT HNV KEV.":POKE 764,255 

1035 SOUND 8,8,0,8 

1040 IF PEEK< 764 >=255 THEN 1040 

1050 RUN 

2000 FOR V=8 TO 255: POKE 710, V: NEXT V 

2005 _? CHR*C125);"VGUR SCORE :";SC:POKE 
7 1 8 , 8 

2010 ? " BONUS : 1888": B= 1868 

2828 FOR 6=1 TO 1800 STEP 185B=B-10!SC=S 

C+ 1 O : POS I T I ON 14,8:? SC : POS I T I ON 14,1: ? 

Bj" ": SOUND 8,G.--4, 10, 10: NEXT G 

2030 SOUND 0,0,0,0 

2040 ? :PI=PI*2:? "STEP UfiLUE NOH IS " ;P 

2045 RESTORE : 1=0 

2858 GOTO 28 

3000 DIPT Ff<8>,Sl$ i : y>,S2*<8>,S3f<8> 

3010 RESTORE 3000: FOR P=l TO 8 

3020 READ fl,B,C,D 

3830 F$<P,P>=CHR$<fi) 

3040 S1$<P,P>=CHR*':B> 

3859 S2*'::P,P>=CHR$':C> 

3060 S3$':P,P;'=CHR*<D> 

3070 NEXT P 

3088 RESTORE : RETURN 

3830 DflTfi 160,6,22,7,1 38 , 32 , 32 , 32 

3 1 OO DflTfi 20 1 , 32 , 32 , 32 , 286 , 32 , 32 , 32 

3118 DflTfi 201,32,32,32,211,32,32,32 

3128 DflTfi 288,32,2,32,168,6,32,7 



CITY BOMB 



(Joystick) 



Your plane has developed engine failure and is slowly de- 
scending on a city below. By bombing the city, and killing 
millions of people, you will be able to land safely — otherwise 
you will crash! Press the joystick button each time you want 
a bomb to drop. 
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CITY BOMB • 65 

i@ repi x:mxx:mxxxx:mxxxx:mxxxxxx 

20 REP1 XX CI TV B0P1B UERSION II tt 
36 REH tt WRITTEN BV PAUL BUNN *X 
40 REP1 tt JANUARY 1383 XX 

50 REP1 ttttt^ttt:ttttttttttttttttttttt 

S0 REP1 

S5 IF PEEK< 203 >=PEEK': 106 >-8 THEN 80 

70 80SUB 10000: REP1 * INITIALIZATION t 

80 GRAPHICS 8:SETC0L0R 2*8 #0: SETCQLOR 4* 

y*y 

90 OPEN #1 #4*0* "K: tt : POKE 752,1 

100 ? "WHAT SKILL LEUEL <1-S>" 

110 SET #l*A:A=A-48 

120 IF fl<l OR A>3 THEN 110 

130 A=A+3 

135 POKE 756 * PEEK-: 283 > 

140 ? CHR*'::i25>:F0R 1 = 1 TO 33 

150 V=INKRND<0>:?:fl>+l 

160 FOR P=22 TO 22-V STEP -1 

170 POSITION I,P:? "*":REP1 XCITV CHARACT 

ER * 

188 NEXT P 

130 FOR P=15 TO O STEP -1 

20O SOUND 1 1 $S+2@ * 10* P 

£18 NEXT P 

220 NEXT I 

230 COLOR 34 

240 PLOT 1*23:DRAWT0 33*23 

25@ y= i : y=@ : BP1=0 : SC=0 

£S0 POSITION X,V:OX=X:OV=V 

270 PRINT "■;"*: REH XPLANE CHARACTER* 

280 X=X+l 

230 IF X=33 THEN X=l:¥=¥+1 

300 IF X>25 RND V=22 THEN 1000:REPi XP1ADE 

IT!* 
310 LOCATE X*V*Z 
320 POSITION OX*OV:? m " 
330 IF Z=ASC< "*";■ THEN 2O08:REP1 XCRASHX 
340 IF STRIS':0>=0 AND BP1=0 THEN 80SUB 30 
90: REH X BUTTON ROUTINE * 
350 IF BP1=1 THEN GOSUB 4000: REP! X P10UE B 
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OHB ROUTINE $ 

368 GOTO 268 

1888 POSITION 13,18:'? "LANDED !" 

1818 POSITION 13,11:? "*&%*%.%%*" 

1828 FOR T=8 TO 6888 STEP 28 

1838 SOUND 0,1*10,15* NEXT T 

1835 SOUND 0,0,0,0 

1848 ? CHR*< 125 >i "WELL DONE , VOUR SCORE 
HAS "iSC 

185U LNU 

2888 POSITION X-1,V-1 

2818 ? CHR*< 7 ) i CHR$< 1 24 > i CHR$< 6 ) 

2828 POSITION X-1,V 

2838 ? "-t-" 

2848 POSITION X-1,V+1 

2858 ? CHR$< 6 ) i CHR$c: 1 24 > ; CHR$< 7 ) 

2868 I- OR F-288 TO 18 STEP -18 

2878 FOR I=P-5 TO p+5 

28S8 SOUND 8,1,128,15 

2898 NEXT_I_ 

2118 SETCOLOR 2,C,2: SETCOLOR 4,C,2 

2128 NEXT P 

2138 SOUND 8,8,8,8 

2148 POSITION 6,105? "Another try ?" 

2158 SET #i,A 

i i bW i r Lntv»< m .- ! — t i HfcN hUN 

2178 IF CHR^Axy'N" THEN 2158 

2188 GRAPHICS 8: END 

3888 Bfl= 1 : BX=V, : BV=V+ 1 ! K=0: RETURN 

4888 POSITION BX , BV : ? " " 

4818 BV=B¥+l: LOCATE BX,BY,Z 

4828 POSITION BX,BV 

4838 ? CHR$< 33 ) : REH ^BOHB CHARACTERS 

4848 IF Z=ftSC< "$" ) THEN 5888 

4858 IF BV=22 THEN POSITION BX,22:? ;: ": 

Bn=0 

4868 RETURN 

5888 POS I T I ON BX , BV : ? " & " : SOUND 8 , 238 ,12 

0, 15: su^ot+Sy 

5818 POSITION 2,8: ? "SCORE: " iSC 
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5@2@ K=K+l:IF K=5 THEN BH=@: POSITION BX 



5036 POSITION BX,BV:? " " 

5040 SOUND 0,0,0,0: GOTO 4050 

1O000 GRAPHICS O 

10O10 SETCOLOR 4,9,0: SETCOLOR 2,9,0 

1O012 ? "CI TV BOriB - PLEASE WAIT" 

1O014 ? ,, :mS:¥:S:mtt:msW»tt« ,, 

iOOlS POKE 752,1: PRINT 

1O020 R=PEEK< 186 >-8 

10O30 FOR P=0 TO 1023 

10040 POKE R£25S+P,PEEK<57344+P> 

1005O NEXT P 

10060 READ I 

10070 IF I<0 THEN POKE 283, R: RETURN 

1008O FOR P=0 TO 7 

1O090 READ K 

10100 POKE R$256+': 8*1 >i-p,K 

1O110 NEXT P 

10129 GOTO 10060 

10130 DATA 4,255,129,129,129,129,129, 



129 



1014O DATA 5,16,8,132,194,255,2,4,8 
10150 DATA 6,170,85,170,85,170,85,170^ 
10160 DATA 7,0,36,60,24,24,60,24,0 
1017O DATA -99 




ENGULF 



(Keyboard) 

In control of the space-cruiser Battlestar, you must engulf an 
alien by destroying all the sectors of space around it. Neither 
you nor the alien (shown as a letter A) can move onto the 
outer border of the area of space under view (these forbid- 
den areas are shown as "-"). The alien moves one, two or no 
spaces in any move, and you enter your move as two co- 
ordinates, pressing RETURN after each one. Any area you 
blast appears as a blank in the area otherwise shown as 
asterisks. You engulf the alien by totally destroying all the 
squares onto which it could move. You are not allowed to 
land on the alien, and will destroy yourself if you do so. 

The alien keeps a watch on the space around it, and signals 
to your computer the degree of danger it senses, so you 
know, more or less, what the alien is thinking. 

The best strategy is to get the alien trapped against one of 
the sides, as it limits the alien's possible moves. The alien is 
aware of this and, using the "intelligence" in lines 6145 and 
6161, will tend to move away from the sides, to minimize the 
chance of being trapped. Knowing this, you may be well- 
advised to build a "fence" of blank areas in a curve around 
the alien, trying to hold it into the sides, or force it to move 
to the sides. 

There is a highest score feature. 

1 _ SRAPH I CS @ : SETCOLGR 4 , 8 , @ : SETCGLOR 2 , 8 

3 Din H< 18*18) 
5 HISCORE=S 

10 REN ENGULF 

20 REH COHHRTNELL 1982 

30 GOSUB 9000: REP1 INITIALISE 

40 GOSUB 8000: REP1 PRINT GUT 

68 
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58 GOSUB 70@ti: REH ACCEPT PLOVER DECISION 

60 GOSUB 6000: REP! UPDATE ALIEN 

70 TIP1E=TIP1E-1 

75 SHOTS=SHOTS+l 

80 IF TIP1E=0 THEN 6570 

85 GOSUB 8800 

90 GOTO 50 

910 fnk=30 

5000 REP1 COLLISION 

5810 PRINT "VQU HIT THE PiLIEN, CAPTAIN" 
5020 PRINT "AND HAUE BEEN DESTROYED" 
5030 GOTO 6570 
6000 REP1 UPDATE ALIEN 
6010 REP1 CHECK IF SURROUNDED 
602O H=@ 

6030 IF A<P1-1,N>=2 THEN H=H+1 
6040 IF A<::P1-1,N-1 >=2 THEN H=H+1 
6050 IF A<n,N-l>=2 THEN H=H+1 
6060 IF A<P1,N+1>=2 THEN H=H+1 
6070 IF fKH-l,N+l>=2 THEN H=H+1 
6080 IF A<Pi+l,N+l >=2 THEN H=H+1 
6090 IF A<Pl+l,N-i::'=2 THEN H=H+1 
6100 IF Aai+1,N>=2 THEN H=H+1 
6110 IF H=8 THEN 65O0:REP1 SURROUNDED 
6120 REP1 PIOUE ALIEN 
6125 E=Pl:F=N 

6130 n=Pl-INT< RND< 1 >&2>+INTCRN0< 1 >$2> 
6140 IF PK2 OR H>9 THEN 6130 
6145 IF <PK4 OR N>7> AND FMK1»0.7 THEN 
6136 
6150 N=N-INT<RND< 1 >*2>+INT(RND< 1 ::'S2> 

6160 IF N<2 OR N>9 THEN 6150 

6161 IF >:N<4 OR N>7> AND RND-: 1 > >0 . 7 THEN 
6150 

6162 IF A<P]j.N>=2 THtN 6130 
6165 A£E#F>=0 

6170 A<P1,N>=1 
6300 RETURN 
6500 REP1 SURROUND 
6505 GOSUB 8000 
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6518 PRINT "ENGULFED! WELL DONE" 
6520 PRINT "IT TOOK VOL! " i SHOTS ;" SHOTS" 
fi^7.fi PRINT "AND VOU DID IT WITH "iTIHE;" 
T I PIE UNITS" m "LEFT" 
6540 Q=TinE*i25.b7 
6550 PRINT "VOUR RATING IS "iQ 
6560 IF Q>HISC0RE THEN HI3C0RE=Q 
6576 PRINT "HIGHEST SCORE SO FAR IS "iHI 
SCORE 

6589 PRINT 

6530 PRINT " ENTER 1 FOR ANOTHER GAHE,2 T 
END" 

6606 INPUT A 
6610 IF A=l THEN 10 
6620 PRINT "OUER AND OUT , CAPTAIN" 
6630 END 

700O REf! ACCEPT PL AVER DECISION 
7O10 PRINT "WHICH SECTOR WILL VOU SHOC 



7O20 PRINT " ACROSS "i 

7030 TRAP 7O30: INPUT S STRAP 48000 

7035 IF S<2 OR S>3 THEN 7030 

704O PRINT Si" AND DOWN"; 

7O50 TRAP 7O50: INPUT R:TRAP 40808 

7055 IF R<2 OR R>3 THEN 7050 

7OS0 IF A<R,S>=1 THEN 5888: REF1 HIT ALIEN 

«END OF GAPE 

7O70 IF A'::R,S>=2 THEN PRINT "SECTOR ALRE 

ADV DESTROYED "! FOR P=20O TO 255: SOUND 0, 

P , 18 , 1 5 : NEXT P : SOUND 8 # * 8 * 

7090 IF A'::R,S>=2 THEN RETURN 

7100 PKR#S>=2 

7110 RETURN 

S00O REH PRINT OUT 

3885 PRINT CHR$<125> 

SO20 PRINT 

8O30 PRINT " ALIEN SENSES DANGER OF F 

ACTOR-" i Hi" !; 

SO50 PRINT "6ATTLESTAR COMPUTER REPORTS: 
%, "HIGHEST SCORE IS "iHISCORE 
3060 PRINT 



iTLIT II 
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HUSO PRINT 

3990 PRINT B ALIEN NOH AT " i\\i" " iY\ 

3100 PRINT 

I HE, "SHOTS F 



3110 PRINT "TIHE LEFT 
ED? u i SHOTS 



yi^y PRINT 

3130 FOR K=l TO 10 
8140 FOR J=l TO 10 



-j - ? .-i CC70Q 1 '"-1 " 



814= 



KAZ UR K>H 



K2 OR J>3 THEN PR 



UR J >9 THtH 8 1 



3150 Ih A<K,J}=0 THEN PKIN1 

, K£y+ J3-4 j 1 @ i 1 5 

8130 IF fl<K,J}=l THEN PRINT "fi"i:FOR P=2 

TO STEP -l: SOUND 8,P, 12j 15: NEXT P 

3170 IF A<K,J>=2 THEN PRINT " " ; : FOR P=4 

O TO STEP -2: SOUND 0,P,8,15:NEXT P 

8180 SOUND 0,0,0,0: NEXT J 

3190 PRINT K 

8200 NEXT K 

821W PRINT 

3390 RETURN 

3000 REP] INITIALISE 

3010 TIf1E=30 

9020 SHOTS=0 

3030 H=0 

3050 FOR B=l TO 10 

9055 FOR 0=1 TO 10 

9060 H<B,C>=0 

9065 IF B<2 OR B>9 OR C<2 OR C>3 THEN A< 

B,C )=2 

3067 NEXT C 

9070 NEXT B 

90S© n=INT(RND< 1 )*7;'+2 

3090 N=INT'::RND': 1 ;'*7>+2 

9100 A<P1,N>=1 

9900 RETURN 



COLOR 
PATTERN 



This short program produces a pattern in graphics Mode 10 
and then gives a hypnotizing effect by rotating the colors. 



iy liRHPHIL'S iy 

29 POKE 704 .,: 8 

40 POKE 706 i 3$ i 6+4 

50 POKE 707,. 12 

55 POKE 708 j. 1 2 

RPi FOR X=S in 79 



yy uQLQR C 

90 PLOT X*X 

100 DRflHTO 79 — X#X 

HO DRflHTO 79-X*191~X 

120 DRflWTO X r 1 9 1 -X 

130 DRflHTO X*X 

4 .4 C rsrrrfl ■. l -"- 1 -- CtfYTfVTC :~i~i ~ii IDC' 

L*rD Kfcl I •■;-••-:■• nu i H i c L-Ul_UUrSo 

ISO fl=PEEKX 705 ) 

160 POKE 705 J PEEK<706; 1 

170 POKE 706 j. PEEK w 07) 

185 POKE 707,PEEK<708> 

186 POKE 708* fi 

190 H=8IN<fl>:REH » DELftV 

200 60T0 150 
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COLOR 
PUZZLE 



(Keyboard) 



This marvelous puzzle should prove challenging to solve. 
Here are the rules. 

The first four moves must be placed in the four corners 
(01,10,16 and 25). 

To place a color square on the grid, it must be next to 
another square horizontally or vertically, not diagonally. A 
color square must not be placed next to another color 
square of the same color in the eight squares around it. 
Proceed to place color squares in this fashion until all 25 
spaces are filled. 
The squares are numbered as follows: 







10 










05 


11 


17 








02 


06 


12 


18 


22 




01 


03 


07 


13 


19 


23 


25 




04 


08 


14 


20 


24 








09 


15 


21 










16 







Note that a zero is required before a single digit, and that 
RETURN does not have to be pressed. If an illegal move is 
attempted the computer will bleep. When you cannot move, 
just type "99". 
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20 REM ti BV PAUL BUNN tt 

3@ GRAPHICS 1@ 

49 POKE 704 .,12 

50 POKE 705., 3$ 16+4 
60 POKE 706*12*18+6 
70 POKE 707 , 7$ 16+2 
80 POKE 70S , 15X 16+4 

90 POKE 769*0! POKE 710*15*16+10 

100 COLOR 6: POKE 703,4 

110 FOR X=8 TO 46 6TEP 8 

120 READ V 

130 FOR X2=8 TO 7 

140 PLOT X+X2+12,98-V 

150 DRfiWTO K+X2+12*90+V 

160 NEXT X2 

170 NEXT X 

180 DATA 10,30,^0*70,50,30*10 

130 DN1 X<25>,V<25> 

200 FOR X2=l TO 25 

2 1 READ X , V : X< X2 >=% * V< K2 >=V 

220 NEXT X2 

230 DATA 12,80,20,60,20,80*20,100 

240 DATA 28 * 40 , 28 * 60 , 28 , SO , 28 , 1 00 

250 DATA 28 ,128, 36 ,20,36, 40 , 36 , 68 

260 DATA 36 , 88 , 36 * 1 00 ,36,1 20 ,36,1 40 

270 DATA 44 , 40 , 44 , 68 , 44 , 88 * 44 , 1 00 

288 DATA 44 , 1 20 , 52 , 60 , 52 , 88 , 52 , 1 08 

288 DATA 68,88 

388 F6R P=l TO 25: COLOR 5: PLOT X<F>+3*'i 

P !■■+ 1 6 : NEXT P 

318 OPEN #1*4,8,"K:" 

311 C£IL=INT<RND<0>&5>+1: COLOR C8L 

312 B=B+< C0L=3 '•' "• R=R+< COL= 1 > '• 6=G+< CQL=2 
VL=VL+< C0L=4 >: BL=BL+< C0L=5 > 

313 IF COL=l AND R>5 THEN R=5:60T0 311 

314 IF C0L=2 AND 8>5 THEN 6=5* GOTO 311 

315 IF C0L=3 AND B>5 THEN B=5i60TQ 311 

316 IF C0L=4 AND VL>5 THEN VL=5:GC 
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317 IF C0L=5 fiND BL>5 THEN BL=5:G0T0 311 
313 FOR P=8 TO 10: PLOT P*0:DROWTO P*2©:N 
EXT P 

329 GET #1,KEV:KEV=KEV-48:KEV=KEV*10 

325 GET #l,KEY2:KEV=KE¥+KEV2-48 

326 IF KEV=33 THEN 2000 

327 IF KEV<1 OR KEV>25 THEN PRINT CHR$<2 
53 ) ; GOTO 320 

330 LOCfiTE K-::KE , t'>/t'«:KEV> j C 

340 IF COS THEN PRINT Cf-R*< 253 ): GOTO 32 

y 

350 IF KEVOl fiND KEYO10 HND KEVOIG ftN 

D KEV025 HND K<4 THEN PRINT CHR*-: 253 >:6 

0T0 320 



7C"C 
i. I. I 



IF J=l THEN K=l 



360 IF KEV=1 OR KEV=10 OR KEV=16 OR KEV= 
25 THEN K=K+l:IF K=4 THEN J=i 
370 X=X< KEV >+3 : V=V< KEV >+ 1 
380 LOCATE X-6*V.»C1 



j.Hy u-J : -^r-i : E ■•'•■ — o j f ~ i. 



J Ud 



408 LUUHTh XjW-i? -L': 

'-? i KJ L-UwH : C. ="i > C» j T — i i j L-M" 

420 LOCfiTE X+6,t,C5 

430 lochte y+e^v-t-iz^ce 

440 LOCfiTE X* ¥+17,17 

,-i C;~j : : — : i — * i~ i "T" ! : .. : i~* I I l i ""? I - 'i~i 

■+-_"3 lULm ! c :i - bjT + if iLo 

460 IF C1=C0L OR C2=C0L OR C3=C0L OR C4= 
COL OR C^=COL OR C6=C0L OR C7=C0L OR C8= 

COL THEN ? CHR#( 253): GOTO 320 

470 ij=i; c 1 =6 >+< C3=6 >+< C5=S >+< C7=6 > 

473 I =< C 1 =0 >+< C3=0 >+< C5=0 >+< C7=0 > 

475 IF LS+I=4 fiND K>4 THEN PRINT CHR*< 253 

>!60T0 328 

430 COLOR COL 

4S5 X=X< KEV > : V=V< KEV ) 

430 FOR P=0 TO 7 

500 PLOT X+PiV 

510 DRftHTO X+FVtM-13 

520 NEXT P 

525 IF R+G+B+¥L+BL=25 THEN 1800 

530 NO=NO+liGOTQ 311 
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1909 
1010 
1020 
1 030 
1040 
1050 

1 060 
4,9,2 

1070 
1088 
1 080 
1100 
1110 
1130 

1140 
1150 
1160 
1170 

2000 
2010 

£020 
2030 
2040 
2050 
2055 
2060 
2065 
2070 
2080 
2080 

2100 

2110 
2120 
2130 



FOR 6=205 TO 5 STEP -5 

FOR F-6-3 TO 6+3 

SOUND 8,P,10,15 

NEXT P 

POKE 704 , < I NT< RND< 6 >£ 1 5 >t 1 6 >+8 

NEXT 6 

GRfiPH I OS 8 : SETCOLOR 2,8,2: SETCOLOR 

POSITION 4,12 

? "WELL DONE YOU 50LUED THE PUZZLE" 

POSITION 4,13 

POKE 752,1 

-- II -.'.- -.'.- -.'.• -.V -.".- -.'.- -.V -.■.- -.».■ -.'.- -.».- -.'.--.».• -.*.- -.V -.'.- -J.- -.'.- -.'.- -.'.- •/.- -.'.- -.».- -.>.- -.'.- -A- -.'.- -.'.- ■}.- -.».- -.».- 1 1 
'. ■ Y- -Y- -Y- -Y- -Y- -Y- -Y- -Y- -Y- -Y- -Y' -Y- -Y- -Y- -Y- -Y- -Y- -Y- -Y- -Y- -Y- -Y- -Y- -Y- -Y- -Y- -Y- -Y- -Y- -Y- -Y- 

PQR p=8 TO 255 

SOUND O,P,10,15 

NEXT P 

SOUND 0,0,0,0 

END 

FOR 8=@ TO 256 

SOUND 0,6,10,15 

POKE 704,6--"2 

NEXT 6 

SOUND 0,0,0,0: POKE 704 , 1 2 

GRAPHICS 0:POKE 752,1 

POSITION 10, 12: POKE 710,3*16+4 

? "BOD LUCK - TRV fi6r-!lN" 

POSITION 10,13 

FOR P=0 TO 2000 STEP 20 
SOUND 0,P,10,15:NEXT P 
SOUND 0,0,0,0 

? "VOU HAD ";25-N0;" LEFT TO FILL" 

END 




BLUEGREEN 
REDYELLOW. 



STRING 
PATTERN 



This short, simple program produces lovely patterns and 
sounds. 



26 REP1 :« 



BV PAUL BUNN 1983 






39 REP1 tt%t$&&ttt*t% 

40 GRAPHICS 8+16:SETC0L0R 2j0#£ 
45 COLOR l:SETCOLOR 1,0,14 

50 FOR X=0 TO 131 STEP 18 

60 PLOT 64#191-X 

70 DRflWTO X+64#0 

SO PLOT l31-X+64#8 

90 DRflWTO 19i+64,i91-X 

100 PLOT 64, X 

110 DRflWTO X+64,191 

120 PLOT 191+64, X 

130 DRflWTO 191-X+64,191 

140 NEXT X 

145 FOR P=0 TO 14 STEP 0.2 

150 SETCOLOR 1,0, P 

155 SOUND 0,P*40,i0,15 

160 NEXT P:60T0 145 
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SOUND 
PROGRAM 



(Keyboard) 

This short and interesting program will produce piano-like 
sounds, remember notes and then play them back when you 
press the "ESC" key. 
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nc\ i 



RUbRfir 



■i'kj hel ! v- : ; : - rHUL. bUNTi : ; : -¥- 

56 GRAPHICS @ 

by bETuuLuR 2 # 8 * @ « SETCOLOR 4jo»M 

\ kj I KhP 1 fc*0 

98 DIPl T< 500 > 

100 OPEN #1 ,4j6j "«! " 

105 

FERE 

L£*6 ' '"NOTES. TU KLMF PLftYED bHL' l: - 



i. j. 1J w! : fft In 1 I L. ' 4. 

115 IF H=27 THEN 160 



-• ! tr - i 

140 SOUND 8«ftjl0jX:NEXT X 

150 GOTO 110 
160 ? CHR$< 125) 
170 ? "MHftl 

180 GET #1j 

[90 M=fi-4g! 

200 FOR ,J—1 

210 S=T<J> 

220 FOR X=15 TO STEP -1 

230 SOUND 0*3* 10*X: NEXT X 



n H/t i riLi'i i offl 



235 FOR 8=1 
240 NEX1 

250 END 



j i 



1 0*< fi-1 >: NEXT G 



l f 



r 



rri 



DISPLAY LIST 

INTERRUPT 

EXAMPLE 



This program demonstrates just a little of what a DLI can do. I 
suggest you SAVE the program before attempting to RUN it, 
since it is written entirely in machine code. 



2@ RED &$ Display List interrupt :?::?: 
30 REFI tt example ti 

40 RED &t Written by Paul Burin :o: 

zr :-i r . r- m -.».■-.'.■-.».- •.'.- -.'.- -.».- -.'.- -A- -.'.- -.'.--.•.- -.'.- -.>.- -.'.- -.'.. -.'.• -.'.- -.'.- ..'.- -.•.- -.».- -.=.- -.».- -.•.- -.v -.«.- -.<.- -.'.• -.'.- 
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60 S08UB 1006 

70 X=!JSR< 1536) 

iHHfi FOR m= 1536 TO 163h:REQD B:POKE Q,B: 
NEXT fi 

1 oy l UHIH ltuil b # i C'd j o , i j ( , bo ijji bo j dd , i 
57, 68, 3, lb"9, 6, 157, 69,. i, 169,12,157,74,^,1 
69,0,157 

1002 DhTH_75,3,32,86,228, 173, 48j.2, 133,20 
3, 173,49, ll, 133,204, lt'.0,0, 177,20J,2til ,15, 
240,6,209,192 

1 003 DflTfl , 208 , 245 , 76 , 63 , 6 , 1 69 , 1 43 , 1 45 , 
203, 76, 4S, 6, 1 69, 81, 141, 6,2, 169, 6, 14i, 1,2 
,169,192 

1004 DHTfi 141,14,212,76,78,6,72,173,11,2 

6,208,104,64,83 

1005 DftTfi 58 

1006 RETURN 



HO 



REACTION 
TIMER 



(Two joysticks) 



This is a short program for two players and is very simple to 
play. When you see a dot on the screen press the fire button. 
The first player to do this wins a point. The first player to get 
10 points wins the game. This program tests reflexes. 

19 REPI *■% REACTION TlflER tt 

29 REH tt BV P.BUNN , NOUEHBER ISSItt 

39 REH 

31 Din A*<39>,B$<39> 

32 ? "PLOVER l'S NAP1E "a INPUT A$ 

33 ? "PLflVER 2'S NONE "*: INPUT B* 

40 GRAPHICS 5 

45 SETCOLOR 2,3,4 

50 fl= i HT( RND< )#290 >+200 

60 FOR L=l TO A 

70 IF STRIG-: 9>=9 THEN GOTO 1898 

80 IF STRIG'::i>=0 THEN GOTO 2000 

90 NEXT L 

1 00 COLOR I NT-: RND< 9 )*3 )+ 1 

1 1 fi=RND< O )*79 : B=RND< 9 >£39 

120 PLOT R,B 

130 fl=0 

140 A=A+1 

150 IF STRIG<9>=9 THEN 3099 

169 IF STRI6C 1 >=9 THEN 4999 

179 GOTO 149 

1900 GRAPHICS 0:? "CHERT! VOU PRESSED TH 

E BUTTON TO SOON" :SC2=SC2+1 : GOTO 5999 

2000 GRAPHICS 0!? "CHEAT! VOU PRESSED TH 

E BUTTON TO SOON" :SC1=SC 1+1 : GOTO 5999 

81 



82 • GAMES FOR YOUR ATARI COMPUTER 



3@00 GRAPHICS 0=? R*;" WINS! WITH A T 

I HE OF : - " i (V 1 00 : SC 1 =SC 1 + 1= IF 

SC1>=L0 THEN 6000 
3005 GOTO 5000 

4000 GRAPHICS 0:? B*;" WINS! WITH A T 

I HE OF:- "iH.--100:SC2=SC2+l:I 

F SC2>=10 THEN 7000 

4005 GOTO 5000 

5000 ? !? !? :? 

5005 ? " ======» 

5010 7" " SCORES" 

5020 ? " ======" 

5O30 PRINT : PRINT 

5040 ? ftti" " *B$ 

5050 ? " 



5060 ':" 

5O70 ? SCI;" 

";SC2 



"PRESS 'FIRE BUTTON' WHEN R 



5088 '■' : '■'' 

EADV" 

5O90 IF STRIG':0X>0 THEN 5090 



5100 FOR 

6000 ? 

6005 ? 

7000 ? 

7005 ? 



L=l TO 190: NEXT l_:G0T0 40 

:? ft$i" WINS THE SAflE ! ! 
END 

:? Bti" WINS THE GATE ! ! 

END 







MORSE CODE 



Just type any sentence when prompted, and the program 
will convert it into Morse code; you will hear the Morse 
code through the television speaker. 

I.U REH *tZt*t**t%*%**ZJ&*ttt%%t%Kll{% 

28 REH * HORSE CODE CONVERTER BV * 

39 REF1 * P.BUNN & J. VINCENT t 

46 REH Jfc^m^imJmttS^mSJmSSSttS*: 

50 GRAPHICS O 

60 SETCOLOR 2#8»0:SETCOLOR 4,3,0 

70 DL=PEEK< 560 H25G#PEEK< 561 >+4 

80 POKE DL+2,7:P0KE DL+3,7 

90 POSITION 0,1 

LOO ? "HORSE CODE CONVERTER"; 

110 ? "*^»^:^«»*;r«««^" 
120 ? :? :? "TVPE IN PlESSflGE VOU WANT TO 
HEAR :-" 

1.30 DIP1 H$< 100:j,B$<5> 
140 SOUND 0,0,0,0: TRfiP 140: INPUT h$ 
L50 FOR X=l TO LEN<fl*> 

155 IF ft$'::X,K>=" " THEN FOR P=l TO 100s N 
EXT p:NEXT X 

160 v=HSC<:i : i* : <x,x>>-e5 

L70 RESTORE V+IOOO 

ISO B*= u ":REfiD B* 

L90 FOR 2=1 TO LEN<B*> 

200 I F B$< 2 , 2 >= " . " THEN SOUND , 30 , 1 , 1 5 

:FOR P=l TO 20: NEXT P: SOUND 0,0,0,0 

210 IF B$< 2,2 :>="-" THEN SOUND 0,30,10,15 

:FOR P=l TO 50: NEXT P: SOUND 0,0,0,0 

220 FOR P=l TO 20: NEXT P 

£30 NEXT 2 

240 NEXT X 

250 RUN 

1000 DfiTfl .- 

1.001 DfiTfi -... 
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1002 
1903 
1004 

L005 

1006 
1007 
1008 

1009 

1010 

L011 
1012 
1013 
1014 
L015 
1016 
1017 
1018 
L019 

1020 

1021 
1022 
L023 
1024 
L025 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



~ 



DOT DA 



Ih 



" 



DOT 



COMPLIMENT 
GENERATOR 



Feeling depressed? Just RUN this program, and increase 
your self-esteem immediately. 

L8 REN tt COflPLiriENT GENERATOR tt 

20 Din H$(15).B$(15) 

39 fi=INKRND< t>*i9> 

4@ B=INTCRNDa>^7> 

50 RESTORE 1000+fi 

60 READ A$ 

r0 RESTORE 2980+B 

80 READ B* 

90 ? mi" "iB$ 

95 fi=INT'::RHD(0>*16::':SETCOLOR 2,0,4: SETCO 
LOR 4,0,4 

96 FOR F=l TO 300: NEXT F 
100 RUN 

LOO© DOT A BRILLIANT 
1001 DATA LOUELV 
L0O2 DATA GREAT 
1063 DATA CLEUER 
L004 DATA INTELLIGENT 
1005 DATA NICE 
L006 DATA WISE 

1007 DATA BEAUTIFUL 

1008 DATA CHARP1ING 

1009 DATA SP1ART 

2000 DATA PERSON 

2001 DATA CHARP1ER 

2002 DATA GENIUS 

2003 DATA INDIVIDUAL 

2004 DATA OPERATOR 

2005 DATA HERO 

2006 DATA ACE 

85 



SPACE 
DOCKER 



(Joystick) 

This is one of the best programs in the book. It uses four 
players and a machine code routine to move them. No 
movement is done in BASIC, as it is too slow. 

Battling with alien invaders in some distant galaxy, your 
ship suddenly takes a direct hit. You enter the tiny escape 
shuttle with your crew, blast off, and race toward the mother 
ship where safety is assured. Your air supply, however, is 
rapidly running out: you have only 300 units left. Your 
mission, using the joystick in Port 1, is to dock with the 
mother ship before the supply expires completely. 

You use the joystick button to thrust, pushing it left or 
right to steer the shuttle toward the mother ship. When you 
succeed in docking with the mother ship, the number of air 
units you have left will be added to your score. 

Anyone interested in the machine code routine I have 
used will find the assembly listing after the BASIC listing. 




O 
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LO REPI :m:m:m:m:m:m:m£#£:m:ac 

20 REPI t SPACE DOCKER BV P.BUNN & * 

30 REPI t JONATHAN UINCENT t 

40 REPI :m##:m*:m;m:m:*$£:mJtttt# 

50 SOSUB 19000: REH « INITIALIZATION ** 

60 SOSUB 20006 

65 SOUND 0,0,3, 15: POKE 53273, R: AIR=30© 

70 X=USR< 1536 > 

SO IF PEEK<781+R*256:j=24 THEN 1090 

90 IF PEEKC 53254 >< >0 OR PEEKC 53262 >< >0 T 

HEN GOTO 2000 

LOO HlR=fiIR-l:IF AIRO0 THEN 70 

110 POSITION 4,6:? "out. of air":SC=0 

L15 POKE 53251,0 

120 FOR P=0 TO 4000 STEP 12 

L30 SOUND 0,P,10,15:NEXT P 

140 SOUND 0,0,0,0 

L50 POSITION 4,6:? "press START" 

1 55 POS I T I ON 4,4:? " sc ore : " ,- SC 

L60 POKE 53279,0 

170 IF PEEKC 53273 K >6 THEN 160 

L30 POSITION 4,6:? " ":60SUB 1 

0100: GOTO 65 

1 000 IF PEEK-: 203 >>PEEK< 203!) AND PEEK* 209 

>< PEEKX 204 > THEN 1020 

L010 GOTO 2000 



L02O 


POSITION 4,6:? " 


docked" 






1025 


POKE 53251 


,0 








L03O 


FOR P=230 


TO 10 


STEP -10 






1040 


FOR X=P-5 


TO P+5 








L050 


SOUND 0,Xi 


.10,15 








1060 


NEXT X 










L070 


SETCOLOR 1 


,RND<0 


>*16,10 






1080 


NEXT P 










L030 


SOUND 0,0i 


.0,0 








LI 00 

R 
LI 10 


POSITION 21,4:? 


" rzma i n i i 


^9 


air: " 


SC=SC+flIR: 


GOTO 150 






20A0 


FOR P=781 


TO 896 


:IF PEEK* 


:r$ 


256+P 


24 THEN NEXT P 










2005 


POKE 5325 J 


.,6 









;AI 
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2910 E=53770:POKE P+256*R+RNO<0>*8,PEEK< 

E) 

2920 SOUND 0,PEEK<E>,3,15:POKE 796,PEEK< 

E> 

2030 
2035 
2040 

10000 



3=S+l:IF S<50 THEN 2010 
POKE 53250,0: POKE 53251,0 
S=0:SC=S:GOTO 140 
GRAPH I CS O : DL=PEEK< 560 H256*PEEK< 5 



615+4: POKE 32,0 
10010 POKE DL+5,7:P0KE DL+6,6:P0KE DL+7, 
6:P0KE DL+8,G:P0KE DL+9,6 
10020 SETCOLOR 4,3,4: 3ETC0L0R 1,3, 4: POKE 
DL+10,6 

L0O30 SETCOLOR 3,3,3: SETCOLOR 1,13,13 
10040 POSITION 0,4: POKE 752,1 

? " SPfiCE DOCKER "; 

? " you are losing air "; 
? " and P1UST dock with "; 
? " the pass i ng mother " j 

? " ship GOOD LUCK! % 

R=PEEK< 1 06 >-8: RESTORE 

FOR P=R*256+512 TO R#256+1024 

POKE P,0:NEXT P 

FOR P=10 TO 17 

REfiD fi,B 

R#256+512+P,H 

RS256+643+P,B 

P 

7,224,62, 124, 1 1 1 ,246 

255,255,214,107 

124,62,60,60,4,32 



10050 

10055 
L0063 

10070 
10080 
10090 
10100 
10110 
10120 
10130 

L0140 

10150 
10160 
10170 
19130 
10190 
10200 
10210 

10220 
10230 
10240 
10250 
10260 
10270 
10233 
10293 



POKE 

POKE 

NEXT 

DfiTfi 

DfiTfi 

DfiTfi 

FOR P=0 TO 7 

READ fi 

POKE R*256+768+80+P,fl 

NEXT P 

DfiTfi 24,63,36,60,36,126,30,255 

FOR F-0 TO 6 

REfiD fi 

POKE R#256+896+88+P,fi 

NEXT P 
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L9300 7 CHR$< 125 >: COLOR 160: PLOT 0,20: DR 

AWTO 39,20:? CHR$U60 ): POSITION 0,8 

10318 POKE 704,8*16 

10320 POKE 705, 8* 16 

10330 POKE 706,15X16+10 

10340 POKE 707,3*16+4 

10350 POKE 53277,3 

10360 POKE 559,46 

10370 POKE 53248,110 

10380 POKE 53249,126 

10390 POKE 53250,108 

10400 POKE 53256,1 

10418 POKE 53257,1 

10420 POKE 53258,1 

10430 POKE 53259,1 

10440 POKE 623,1 

10450 POKE 54279, R 

10460 DATA 24,60,126,255,255,0,6 

10470 POKE 203, HO: POKE 204,126 

10480 POKE 208, INK RNDU>*2>+1: POKE 209, 
108 

10485 K=R*256+768:P0KE 206,INT<K^256>:PO 
KE 205 , K-<: 256*PEEK< 206 > ) 
10490 RETURN 

20000 FOR A=1536 TO 1676: READ B.'POKE P,B 
:NEXT A 

20001 DATA 104,165,208,201,1,240,17,230, 
283,230,204, 165,204,201 ,200,208,21 , 169, 1 
,133,208,76,38,6,198 

20002 DATA 203,198,204,165,203,201,50,29 
8,4, 169,2, 133,208, 165,283, 141 ,0,208, 165, 
204, 141 , 1 ,208, 173, 120 

28803 DATA 2,201,11,248,10,173,120,2,201 
,7,240,8,76,72,6,198,209,76,72,6,238,209 
,165,209,141 

20004 DATA 2,208,173,132,2,201,0,240,11, 
169,0,141,3,208,141,0,210,76,127,6,173,1 
0,210,141,195 

20005 DATA 2,165,209,141,3,208,169,138,1 
41,0,218,160,0,177,205,136,145,205,200,2 
90, 192,0,208,245,76 

28006 DATA 140,6,160,0,177,205,209,145,2 
05,136,136,192,0,208,245,96 
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26007 


RETURN 


10 t 


=$600 


20 ;fl 


SSEP1BLV ROUTINE 


30 iS 


PACE DOCKER HRI 


40 H0R1=$CB 


56 H0R2=$CC 


60 LF 


=$D0 


70 H0R3=$D1 


80 PLfi 


90 LDA LF 


1 00 


CP1P #1 


0110 


BEG! RIGHT 


0120 


LEFT INC H0R1 


0130 


INC H0R2 


0140 


LDfl H0R2 


0150 


crip #200 


0160 


BNE Nl 


0170 


LDfl #1 


0130 


STfl LF 


0190 


JrTP Nl 


0200 


RIGHT DEC H0R1 


0210 


DEC H0R2 


0220 


LDfl H0R1 


0230 


crip #50 


0240 


BNE Nl 


0250 


LDfl #2 


0260 


STfl LF 


0270 


Nl LDfl H0R1 


0280 


STfl 53248 


0296 


LDfl H0R2 


0300 


STfl 53249 


0310 


STICK LDfl $278 


0320 


crip #11 


0330 


BEG! L 


0340 


LDfl $273 


0350 


CHIP #7 


0360 


BEG! R 


0370 


JHP N2 


0330 


L DEC H0R3 


0390 


JP1P N2 


0400 


R INC H0R3 



USED IN 
TTEN BV PAUL BUNH 



FOR ADVANCED PROGRAM- 
MERS 

Starting at line 10 (above) is the 
assembly-language version of 
the routine that runs from line 
2000 to 2007. This is just to give 
you the opportunity to look over 
my shoulder and see the 
process of communicating 
directly with the CPU. Don't type 
this into your computer, it will 
only give you all sorts of weird 
error messages. 
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0410 


N2 LDfl H0R3 


0420 


STfl 53250 


0430 


LDH $284 


0440 


CP1F #0 


0450 


6EQ ON 


0460 


LDH #0 


O470 


STfl 53251 


0480 


STfl *D200 


0490 


JP1P N4 


0500 


DM LDfl 53776 


0510 


STfl 707 


0520 


LDfl H0R3 


0530 


STfl 53251 


0540 


LDfl #130 


0550 


STfl $D206 


0560 


LDV #0 


0570 


AG1 LDfl <$CD>,V 


0580 


DEV 


0590 


STfl <*CO),Y 


0600 


I NY 


0610 


INY 


0620 


CPY #0 


0630 


BNE flGl 


0640 


JP1P N5 


0650 


N4 LDY #0 


0660 


A62 LDfl '::$CD>,V 


0670 


INY 


0680 


STfl <*CD>,V 


O690 


DEV 


0700 


DEY 


0710 


CPY #0 ^ 


0720 


BNE AG2 ^ 


0730 


N5 RTS ^^ 




SKI RUN 



(Joystick) 

Notes for typing the program in: 

1. Type exactly what is listed. 

2. SAVE the program on cassette or disk before you RUN 
the program. 

3. The program is designed for an Atari 400/800 with at 
least 16K memory, with or without DOS loaded in. 

4. If you have a 16K machine, when you RUN it the screen 
will flash funny colors — this is normal and will stop 
shortly. 

5. When you are about to play Ski Run, switch the compu- 
ter OFF/ON. LOAD the program in and then RUN. The 
program will take a few seconds to RUN after the 
command. Press START for the game to commence. 

If you follow the above rules, you will find yourself with a 
very good, 100% machine code game — quality you would 
expect from very expensive software. 

Use your joystick, plugged into Port 1, to move your skier 
left or right. To score points run over the blue flags; avoid 
the trees at all costs. If you are skillful enough to complete a 
round, you will advance to the next level which means you 
go to a higher mountain with steeper slopes, and your skier 
moves faster. The game ends when your skier crashes into a 
tree. Press START to relieve his frustration. 




\ 



r 
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1.8 REM ** SKI RUN BY PAUL DUNNING U 

26 REP1 

30 REI'1 Hake sure you SPUE this program 

40 REPl before you attempt to run it ! 

45 RED 

50 GOSUB 1000 

60 GOSUB 2000 

70 GOSUB 3000 

80 GOSUB 400U 

90 X=USRa663> 

LO00 FOR A=1536 TO 1646 ."READ B:POKE A,B: 

NEXT H 

LO01 DATA 112,112,112,70*0*60,7,0,6,6,11 

8,217,35,54,54,54,54,54,54,54,54,54,54,5 

4,54 

1002 DATA 54,54,54,54,54,54,54,54,65,0,6 

,0,24,24,24,24,60,60,60,60,60,60,126,126 

,126 

L003 DATA 126,126,126,255,255,255,255,25 

5,255,255,255, 126, 126,24,24,24,24,24,0,2 

55 ,255 ,255 ,255 ,255 ,255 

1804 DATA 255,255,192,132,132,132,192,18 

2,192,192,3,3,3,3,3,3,3,3,0,0,0,0,0,0,0 

1005 DATA 0,7,31,127,31,7,1,1,1,0,0 

L006 RETURN 

2000 FOR A= 13568 TO 14636: READ B:POKE A, 
B:NEXT A 

2001 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

2002 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

2003 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

2004 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

2005 DATA 0,0,0,101,110,100,0,111,102,0, 
114,111,117,110,100,0,0,0,0,0,0,0,0,0,0 

2006 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

2007 DATA 0,0,110,101,120,116,0,114,111, 

117,110,100,0,0,0,0,0,0,0,0,0,0,0,0,0 

2008 DATA 0,99,111,109,105,110,103,0,0,1 

17,112,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
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2069 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

2010 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

2011 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

2012 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

2013 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0, 0,0, 0,0, 0,0, 0,0,0 

2014 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

2015 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

2016 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

2017 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

2018 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

2019 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

2020 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

2021 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,8,0,0,0,0,0,0,0,0 

2022 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

2823 DfiTfi 8,8,y,0,0,y,0,0,0,0,0,fi,0,0,0, 

0,0,0,0,0,0,0,0,0,0 

2024 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

2025 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

2026 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

202? DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

2023 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

2023 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

2030 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 
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2031 DATA 0,0,0,0,0,0,8,0,0,0,0,0,0,0,0, 
0,0,0,0,0,8,0,0,0,0 

2832 DOTH 0,51,43,41,0,50,53,46,0,0,0,0, 
8,0,8,0,0,0,0,51,35,47,50,37,8 

2033 DATA 16,16,16,16,16,0,8,0,0,0,8,0,0 
,0,0,8,8,8,8,8,8,8,8,8,8 

2834 DATA 0,0,0,0,63,63,63,63,63,63,63,6 
3, 63, 63, G;3, 63, 63, 63, 63, 63, 63, 63, 63, 63, 63 

2035 DATA 63,63,63,0,0,0,0,0,0,8,0,0,8,0 
,8,8,8,8,8,8,8,8,8,8,8 

2836 DPTA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,8,8,8,8,8 

2837 DATA 0,0,0,0,8,8,8,8,8,0,8,0,0,0,0, 
0,8,8,8,8,8,8,8,8,8 

2838 DATA 8,8,8,8,8,0,0,0,0,8,8,0,0,0,0, 
0,0,0,0,8,8,0,8,0,8 

2833 DATA 0,0,8,8,8,8,8,8,0,0,0,8,8,8,0, 
8,8,8,8,8,8,8,8,0,0 

2040 DATA 0,8,8,8,8,8,0,8,8,0,8,0,0,0,0, 

0,0,0,0,0,0,0,0,0,0 

2041 DATA 0,0,0,0,8,8,8,0,0,0,0,0,0,8,8, 
8,8,8,8,8,8,8,0,0,36 

2842 DATA 36,36,36,36,36,36,36,36,36,36, 
36,36,36,36,36,8,8,8,8,8,8,8,8,8,8 

2843 DATA 8,8,8,8,8,8,8,8,8,8,129,129,12 
9,98, 98 , 98 , 68 , 68 , 68 

2844 RETURN 

3800 FOR A=14848 TO 15475: READ B:POKE A, 

B:NEXT A 

3001 DATA 169,175,141,1,210,169,0,141,11 

,6,169,32,141,12,6,169,14,141,200,2,169, 

200,141,196,2 

3802 DATA 169,32,133,213,169,128,141,197 
,2,162,6,169,8,157,8,29,282,208,248,168, 
6,185,0,224,153 

3003 DATA 0,56,185,0,225,153,8,57,185,0, 
226,153,0,58,185,0,227,153,0,59,136,208, 
229,169,32 

3004 DATA 133,208,162,16,160,0,169,0,145 
,207, 136, i±88, 249, 230, 288, 202, 288, 242, 169 
,56,141,244,2,160,88 

3005 OATH 135,37,6,153,8,56,136,208,247, 
169,0,141,48,2,169,6,141,49,2,166,213,17 
3,10,210,133 
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3«06 DATA 205,173,10,210,41,14,9,32,133, 

206, 169, 1 , 160,0, 145,205, 160,24, 169,2,145 

,205,160,48,169 

300? DATA 3,145,205,160,72,169,4,145,205 

,202,208,215,162,32,173,10,210,133,205,1 

7'3, 10, 210, 41, 14, 9 

3008 DATA 32,133,206,160,0,177,205,201,0 
,208,234, 169,73, 145,205,202,208,227, 162, 
8,169,0,157,0,32 

3009 DATA 202,208,248,32,131,9,32,17,10, 
160,0,140,5,212,32,32,9,152,72,104,168,1 
73, 120,2,201 

3010 DATA 7,240,26,201,11,240,3,76,14,9, 
165,212,201,56,240,29,198,212,165,212,14 
1,0,208,141,1 

3011 DATA 208,76,14,9,165,212,201,192,24 
0,10,230,212,165,212,141,0,208,141,1,208 
,173,4,203,201,0 

3012 DATA 240,3,32,235,3,200,192,8,208,1 
82,76,52,9,152,72,160,24,162,0,202,208,2 
53,169,0,141 

3013 DATA 0,210,136,208,243,104,168,96,1 
73,11,6,24,105,24,141,11,6,173,12,6,105, 
9,141,12,6 

3014 DATA 173,12,6,201,45,240,3,76,209,8 
,169,0,169,0,141,11,6,169,27,141,12,6,17 
3,35,9 

3015 DATA 201,7,240,3,206,35,9,162,0,138 
,72,32,32,9, 104, 170,202,208,246, 141 , 1 1 ,6 
,169,32,141 

3016 DATA 12,6,165,213,24,105,10,133,213 
,76,44,8,169,58,141,192,2,169,0,141,193, 
2,169,128,141 

3017 DATA 0,208,133,212,169,128,141,1,20 
8,169,0,141,2,208,141,3,208,141,4,208,14 
1,5,208,141,6 

3018 DATA 208,141,7,208,169,3,141,29,203 
,169, 48, 141, 7, 212, 169, 62, 141, 4,-', 2, 162,0, 
169,0,157,0 

3019 DATA 52,157,0,53,202,208,245,162,1? 
,189,0,31 ,157, 128,53,202,208,247, 162, 17, 
189,32,31,157,128 

3020 DATA 52,202,208,247,162,96,183,0,30 
, 157,255,59,202,208,247,96, 173,4,208,201 
,2,240,16,173,31 
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3021 DfiTfi 208,201,6,208,243,163,255,141, 
30,208,76,8,8,72,32,17,10,169,1,141,30,2 
08,173,18,210 

3822 DflTfi 141,0,210,36,32,101,18,238,4,2 
3,173,4,23,201,10,240,1,36,163,0,141,4,2 
9,238,3 

3823 DflTfi 23,173,3,23,201,10,240,1,36,16 
3,0,141,3,23,238,2,23,173,2,23,201,10,24 
0,1,36 

3024 DflTft 163,8,141,2,23,238,1,23,173,1, 
23,201,10,240,1,36,163,0,141,1,23,238,0, 
23,173 

3825 DflTfi 0,23,201,10,240,1,36,163,0,141 

,0,23,0,162,5,183,255,28,24,185,16,157,3 

0,60,202 

3026 DfiTfi 208,244,36 

3827 RETURN 

4000 FOR fi=1663 TO 1738:REfiO B:POKE fi,B: 
NEXT fl 

4001 DfiTfi 184,163,0,133,203,163,53,133,2 
84, 160,0, 132,205, 163,27, 133,206, 177,203, 
1 45 , 205 , 208 , 208 , 243 , 238 , 284 

4802 DflTfi 230,206,165,206,201,32,288,239 
, 163,8, 133,203, 133,205, 163,58, 133,284, 16 
3,8,133,206,177,203,145 

4083 DfiTfi 205,200,208,243,238,204,230,20 
6, 165,204,201 ,61 ,208,233, 163,8, 133, 12, 16 
9,8,133,13,76,0,8 
4885 RETURN 




How to Write 

Better 

Programs 

By Tim Hartnell, series editor 



There are a number of fine programs in this book, and many 
of the regular computer magazines contain others. But no 
matter how good the programs from published sources are, 
you are certain to get more pleasure from running them if 
they have been partially or completely written by you. 
Putting your personal stamp on programs, altering them to 
reflect your wishes and creativity, is an excellent way to 
improve the programs, and eventually, of course, you'll 
become a better and more imaginative programmer. 

Programs in magazines, and in books like this one, are 
ideal as starting points for your own developments. You may 
also find that advertisements for software packages can be 
fruitful "idea-starters". You only need to read the descrip- 
tion of what the commercially available program does, and 
you will have the first step toward creating your own 
program. You have to be careful, of course, not to infringe 
copyright either in the screen displays, in the name of the 
program, or the names of the "characters" within the pro- 
gram. However, you will probably find that at a certain point 
in its development the program will take on a life of its own, 
growing and evolving away from the original scenario, until 
you eventually have a completely new game concept and 
implementation. 

Whatever you do, be careful not to pass off other people's 
work as your own. By all means adapt and improve pub- 
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lished programs, but do not then present them to magazines 
as if they were originals. I have lost count of the number of 
times one of my own programs, from one of my books, has 
been submitted to me for publication. 

Always watch out for new ideas as you look through 
books, game and computer magazines, or wander through 
video game arcades. It may be worth keeping notes of ideas 
you come across for games, for character shapes, for 
sounds, for dramatic endings and so on. Thus you will never 
be short of ideas, and you will also be able to merge the 
material together to produce better games which hold the 
player's attention for longer. 

Games tend to fall into one of three categories, and it is 
worth making sure of the category into which your proposed 
program will fall before you start to program, since the 
category of game materially alters the programming ap- 
proach. This is not to say that, as you develop a program, it 
will not move from one category into another, nor that a 
particular game might not extend across two categories, but 
it is nevertheless useful to keep the various groups separate 
in your mind, just to clarify your thoughts. The three catego- 
ries are: 

1. Board games 

2. "Arcade" (that is, highly visual, fast moving, noisy, real 
time) games 

3. Games of chance (such as Roulette and Snap). 

In board games, the quality of play is more important than 
lightning-fast response, while the arcade-type programs 
must be kept moving at all costs, even if some "intelligence" 
from your Martian intruders must be sacrificed to achieve 
this. Games of chance depend more on their ease of play 
("user-friendly" inputs), and an approach to true random- 
ness, than do either of the other categories. 

You will find that games programs tend to fall into types, 
which are subdivisions of the three above mentioned cate- 
gories. Many board games are variants of chess or checkers; 
many arcade games started off life as Space Invader-type 



HOW TO WRITE BETTER PROGRAMS • 101 

games; and games of chance started off in the "real world" 
of dice and cards. Looking at a program description, or a 
games machine, and trying to categorize the game you see 
can help trigger new ideas which fit within that particular 
game's genre. 

There is a school of thought within programming — gener- 
ally called "structured programming" — which believes that 
discipline at the beginning of the games-writing process is 
essential. While less interesting than sitting down at the 
computer right away, a much better program is produced in 
the end. I once wrote a program called Dome Dweller, a 
simulation program in which the player is in charge of a 
"lunar dome" and must decide which products to manufac- 
ture and sell in order to buy oxygen and food for the station's 
inhabitants. (This program was used in my book The Book of 
Listings, written with Jeremy Ruston, and published by the 
BBC.) Once I had decided the overall scenario, I worked out 
the screen display, and came up with an idea as follows: 

Oxygen supplies are low 

There are 96 people living within your dome in year 3 

Money credit is $5,693 

Annual maintenance charge is $226 

Oxygen tanks hold 811 units 

Oxygen costs $8 per unit 

Each dome dweller needs 5 units a year 

Food stocks stand at 2122 

Each dweller needs 3 units a year ($6 each, $576 for dome. 
This will last 7 years at present population.) 

You can trade your unique lunar sculptures with the 
people who live in other domes. You use up 2 units of 
oxygen making each one, and sell them for $30. 

As you can probably guess from this "sample printout", 
the idea of the program is to decide how many "unique lunar 
sculptures" you must make and sell in order to buy oxygen 
and food, and to pay the "annual maintenance" charge. The 
problem with this particular program is that making each 
sculpture uses up oxygen, so you must balance your wish to 
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make money against the need to use the oxygen intelli- 
gently. 

You may well wish to try writing such a program yourself. 
You should end up with an enjoyable program, and writing it 
will do much to help you develop your programming skills. 
The first thing to do is to make a list of what the program has 
to do: 

Set up the needed variables 

Tell the player the "state of the dome" 

Ask how much oxygen to be bought 

Check if can afford this, if so buy it, if not go back and ask 

again 
Ask how much food to be bought 
Check if can afford this, if so buy it, if not go back and ask 

again 
Update oxygen quantity 
Update food quantity 
Reduce money left total 
Ask how many items of sculpture to be made 
Check if there is enough oxygen to make this many, if not 

go back and ask again 
Reduce oxygen quantity by amount needed to make the 

number of sculptures specified, increase money total to 

reflect value of sculptures made 
Increase the population total slightly, add one to the 

"current year" 
Check if there is enough food in stocks to feed whole 

population 
Check if there is enough oxygen for whole population 
Check if there is any money 
If any of these conditions are negative (e.g. not enough 

food) send action to an "end of game" routine 
If all are positive, loop back to tell the player the state of 

the dome, and continue to circle 

You could probably write a Dome Dweller program using 
the list above, together with the "sample printout" informa- 
tion. There is, however, a secret I should like to share with 
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you which unlocks programming problems almost instantly. 
You can actually write all the vital parts of a program in 
minutes, so you can see the raw framework of a program like 
this running long before you fill in the details. And once you 
have a framework you can work on it for as long as you like, 
knowing as you do so that — at every moment in program 
development — you have a working program. You do not 
have to wait until the end until you can run it to see how you 
are going. The secret is to hold the entire program within a 
series of subroutine calls, all held within a perpetual loop. 
Here's how it could work with this program. The very first 
lines you enter in your computer are as follows: 

10 REM DOME DWELLER 

20 GOSUB 1000: REM ASSIGN VARIABLES 

30 GOSUB 2000: REM PRINT OUT STATE OF DOME 

40 GOSUB 3000: REM OXYGEN 

50 GOSUB 4000: REM FOOD 

60 GOSUB 5000: REM SCULPTURE 

70 GOSUB 6000: REM UPDATE POPULATION 

80 GOSUB 7000: REM CHECK ON STATE OF DOME 

90 IF (all conditions positive, from GOSUB 7000) THEN 

GOTO 30 
100 REM End of game . . . 

As you can see once you have the master loop set up in 
this way, it is relatively simple to fill in each of the subrou- 
tines one by one, testing each as you do so, and elaborating 
each one so that you end up eventually with a very good 
program. The only thing you need now is a list of the 
variables which you will use with the program. 

I find the best way to do this is to use explicit names for 
variables so that when you are programming you do not have 
to spend time checking, for example, whether AA stands for 
the population, or the number of units of oxygen used up in 
making each item of sculpture. To make programs as easy as 
possible to transfer between different computers you can 
stick to two letter variable names, or you can take advantage 
(if your computer allows it) of long names (such as OXYUSE 
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for the amount of oxygen used) for variables. Then you have 
no doubts whatsoever as to the meaning of each variable 
name. To show how this can work, and to illustrate a further 
advantage of explicit variable names, here are the variables 
used in Dome Dweller: 

FOLK — population of dome 

CASH — money in treasury 

FOOD — food stocks on hand 

FOODCOST — how much each unit of food costs 

FOODNEED — how many units of food were consumed per 

person per year 
ARTCOST — how much oxygen was used up making each 

piece of sculpture 
ARTPAY — how many dollars each piece of sculpture was 

sold for 
OXY — oxygen stocks on hand 
OXYNEED — how many units of oxygen were consumed 

per person per year 
OXYCOST — how much each unit of oxygen cost to buy 
REPAIR — the cost of annual repairs to the dome 
YEAR — the year of the dome's life 

Using explicit variable names in this way — although they 
use up more memory than single or double-letter variable 
names — makes it very simple to follow through a program, 
working out what each section of the program actually does. 
Moreover, and this is the further advantage mentioned, it is 
very easy when writing the program to insert the formula 
required for calculations. By this I mean that if, for example, 
you wished to include (as I do in this program) an indication 
of how much oxygen is needed for each year, you simply 
multiply the number of people in the dome (FOLK) by the 
number of oxygen units each person needs each year (OXY- 
NEED). You can then include within the printouts for the 
state of the dome a line like: 

PRINT "THERE ARE"; FOLK; "IN THE DOME" 

PRINT "IN YEAR"; YEAR 

PRINT "EACH PERSON NEEDS"; OXYNEED; "UNITS OF" 
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PRINT "OXYGEN EACH YEAR,"; 

OXYNEED*FOLK;" NEEDED" 
PRINT "FOR THE WHOLE DOME" 

It also makes it very easy to check on whether purchases are 
possible. For example, to buy food, you could say: 

PRINT "HOW MUCH FOOD WILL YOU BUY?" 

INPUT A 

IF A*FOODCOST ) CASH THEN GOTO (get another A) 

So the suggestions given here for improving your pro- 
grams by the use of "structured programming" include the 
following: 

— draw up a sample printout, or mock-up of the final 

screen display 
— draw up a list of what the program has to do each time 

through a "master control loop" 
— change this list to a series of subroutine calls 
— use explicit variable names if possible 

It is useful if you are designing programs for others to use 
to ensure that it is quite clear what the player should do 
when running the program. There is little point, especially 
when memory is limited, in including a long set of instruc- 
tions within the program, but you should certainly write 
such instructions down. In addition, user prompts should be 
explicit (such as ENTER THE NUMBER OF GOES YOU WANT) 
and should include warnings of the limits which will be 
placed on the input (HOW MANY CARDS WILL YOU START 
WITH: 1, 2 OR 3?, for instance). 

You cannot assume that you will be present every time a 
program is run, so you should do your best to make it as 
foolproof as possible. If you can, add error-trapping rou- 
tines to the program to ensure that a mistake in entering a 
choice earlier on in the program will not cause it to crash or 
come up with stupid results later on. 
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If you read through this section of the book several times 
and try to apply the ideas to your own programming work, 
you should find your work quality improves significantly, 
and also that you can spend more time improving and 
embellishing a program and less in the raw mechanical task 
of getting the thing running. 



GLOSSARY 



Accumulator — the place within the computer in which 
arithmetic computations are performed and where the 
results of these computations are stored. 

Algorithm — the series of steps the computer follows to solve 
a particular problem. 

Alphanumeric — this term is usually used in relation to a 
keyboard, as in "it is an alphanumeric keyboard", which 
means that the keyboard has letters as well as numbers. It 
is also used to refer to the "character set" of the computer. 
The character set comprises the numbers and letters the 
computer can print on the screen. 

ALU (Arithmetic/Logic Unit) — the part of the computer which 
does arithmetic (such as addition, subtraction) and where 
decisions are made. 

AND — a Boolean logic operation that the computer uses in 
its decision-making process. It is based on Boolean alge- 
bra, a system developed by mathematician George Boole 
(1815-64). In Boolean algebra the variables of an expres- 
sion represent a logical operation such as OR and NOR. 

ASCII — stands for American Standard Code for Information 
Exchange, the most widely used encoding system for 
English language alphanumerics. There are 128 upper and 
lower case letters, digits and some special characters. 
ASCII converts the symbols and control instructions into 
seven-bit binary combinations. 

Assembler — a program which converts other programs writ- 
ten in assembly language into machine code (which the 
computer can understand directly). Assembly language is 
a low level programming language which uses easily mem- 
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orized combinations of two or three letters to represent a 
particular instruction which the assembler then converts 
so the machine can understand it. Examples of these are 
ADD(add), and SUB (subtract). A computer programmed 
in assembly language tends to work more quickly than one 
programmed in a higher level language such as BASIC. 



B 

BASIC — an acronym for Beginners All-Purpose Symbolic In- 
struction Code. It is the most widely used computer 
language in the microcomputer field. Although it has been 
criticized by many people, it has the virtue of being very 
easy to learn. A great number of BASIC statements resem- 
ble ordinary English. 

Baud — named after Baudot, a pioneer of telegraphic com- 
munications. Baud measures the rate of transfer of infor- 
mation and is approximately equal to one bit per second. 

BCD — an abbreviation for Binary Coded Decimal. 

Benchmark — a test against which certain functions of the 
computer can be measured. There are a number of so- 
called "standard Benchmark tests," but generally these 
only test speed. This is rarely the aspect of a microcompu- 
ter that is of most interest to the potential buyer. 

Binary — a numbering system that uses only zeros and ones. 

Bit — an abbreviation for Binary Digit. This is the smallest unit 
of information a computer circuit can recognize. 

Boolean Algebra — the system of algebra developed by mathe- 
matician George Boole which uses algebraic notation to 
express logical relationships (see AND). 

Bootstrap — a short program or routine which is read into the 
computer when it is first turned on. It orients the compu- 
ter to accept the longer, following program. 

Bug — an error in a computer program which stops the pro- 
gram from running properly. Although it is generally used 
to mean only a fault or an error in a program, the term bug 
can also be used for a fault in the computer hardware. 
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Bus — a number of conductors used for transmitting signals 
such as data instructions, or power in and out of a compu- 
ter. 

Byte — a group of binary digits which make up a computer 
word. Eight is the most usual number of bits in a byte. 



CAI — Computer Assisted Instruction. 

CAL — Computer Assisted Learning. The term is generally 
used to describe programs which involve the learner with 
the learning process. 

Chip — the general term for the entire circuit which is etched 
onto a small piece of silicon. The chip is, of course, at the 
heart of the microcomputer. 

Clock — the timing device within the computer that syn- 
chronizes its operations. 

COBOL — a high level language derived from the words 
Common Business Orientated Language. COBOL is de- 
signed primarily for filing and record-keeping. 

Comparator — a device which compares two things and pro- 
duces a signal related to the difference between the two. 

Compiler — a computer program that converts high level 
programming language into binary machine code so the 
computer can handle it. 

Complement — a number which is derived from another ac- 
cording to specified rules. 

Computer — a device with three main abilities or functions: 

1) to accept data 

2) to solve problems 

3) to supply results 

CPU — stands for Central Processing Unit. This is the heart of 
the computer's intelligence, where data is handled and 
instructions are carried out. 

Cursor — a character which appears on the TV screen when 
the computer is operating. It shows where the next char- 
acter will be printed. On a computer there are usually 
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"cursor control keys" to allow the user to move the cursor 
around the screen. 



D 

Data — information in a form which the computer can pro- 
cess. 

Debug — the general term for going through a program and 
correcting any errors in it, that is, chasing down and 
removing bugs (see Bug). 

Digital Computer — a computer which operates on informa- 
tion which is in a discrete form. 

Disk/Disc — this is a magnetically sensitized plastic disk, a 
little smaller than a single play record. This is used for 
storing programs and for obtaining data. Disks are consid- 
erably faster to load than a cassette of the same length 
program. The disk can be searched very quickly while a 
program is running for additional data. 

Display — the visual output of the computer, generally on a 
TV or monitor screen. 

Dot Matrix Printer — a printer which prints either the listing of 
a program or that which is displayed on the TV screen. 
Each letter and character is made up of a number of dots. 
The higher the number of dots per character the finer the 
resolution of the printer. 

Dynamic Memory — a memory unit within the computer 
which "forgets" its contents when the power is turned off. 



Editor — this term is generally used for the routine within the 
computer which allows you to change lines of a program 
while you are writing it. 

EPROM — stands for Erasable Programmable Read-Only 
Memory. This is like the ROM in the computer, except that 
it is fairly easy to load material into an EPROM and it 
doesn't disappear when you turn the power off. EPROMs 
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must be placed in a strong ultra violet light to erase them. 
Error Messages — the information given by a computer where 
there is a fault in the coding during a part of a program, 
usually shown by the computer stopping, and printing a 
word, or a word and numbers, or a combination of num- 
bers only, at the bottom of the screen. This tells you what 
mistake has been made. Common mistakes include using 
the letter O instead of zero in aline, or leaving out a pair of 
brackets, or one of the brackets, in an expression, or 
failing to define a variable. 



File — a collection of related items of information organized 
in a systematic way. 

Floppy Disk — -a relatively cheap form of magnetic disk used 
for storing computer information, and so named because 
it is quite flexible (see Disk/Disc). 

Flow Chart — a diagram drawn up before writing a program, 
in which the main operations are enclosed within rectan- 
gles or other shapes and connected by lines, with arrows 
to represent loops, and decisions written at the branches. 
It makes writing a program much easier because traps 
such as infinite loops, or non-defined variables can be 
caught at an early stage. It may not be worth writing a flow 
chart for very short programs, but generally a flow chart 
aids in creating programs. 

Firmware — there are three kinds of "ware" in computers: 
software "temporary" programs; hardware like the ROM 
which contains permanent information; and firmware in 
which the information is relatively permanent, as in an 
EPROM(seeEPROM). 

Flip-Flop — a circuit which maintains one electrical condition 
until changed to the opposite condition by an input signal. 

FORTRAN — an acronym for FORmula TRANslation, this is a 
high-level, problem orientated computer language for 
scientific and mathematical use. 
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Gate — an electrical circuit which, although it may accept one 
or more incoming signals, only sends out a single signal. 

Graphics — pictorial information as opposed to letters and 
numbers. 



H 

Hard Copy — computer output which is in permanent form. 

Hardware — the physical parts of the computer (also see 
software and firmware). 

Hexadecimal (Hex) — a numbering system to the base sixteen. 
The digits zero to nine are used, as well as the letters A, B, 
C, D, E and F to represent numbers. A equals 10, B equals 
11, C equals 12, and so on. Hex is often used by micropro- 
cessor users. 

Hex Pad — a keyboard designed specifically for entering hex- 
adecimal notation. 

High Level Language — a programming language which allows 
the user to talk to the computer more or less in English. In 
general, the higher the level of the language (that is, the 
closer it is to English), the longer it takes for the computer 
to translate it into a language it can use. Lower level 
languages are far more difficult for human operators but 
are generally executed far more quickly. 



I 

Input — the information fed into the computer via a key- 
board, a microphone, a cassette or a disk. 

Input/Output (I/O Device) — a device which accepts informa- 
tion or instructions from the outside world, relays it to the 
computer, and then, after processing, sends the informa- 
tion out in a form suitable for storing, or in a form which 
could be understood by a human being. 
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Instruction — data which directs a single step in the process- 
ing of information by the computer (also known as a 
command). 

Integrated Circuit — a complete electronic circuit imprinted 
on a semiconductor surface. 

Interface — the boundary between the computer and a pe- 
ripheral such as a printer. 

Interpreter — a program which translates the high level lan- 
guage fed in by the human operator, into a language 
which the machine can understand. 

Inverter — a logic gate that changes the signal being fed in, to 
the opposite one. 

Interactive Routine — part of a program which is repeated 
over and over again until a specified condition is reached. 



J 
Jump Instruction — an instruction which tells the computer to 
go to another part of the program, when the destination of 
this move depends on the result of a calculation just 
performed. 



K 

K — this relates to the size of the memory. Memory is usually 
measured in 4K blocks. 1K contains 1,024 bytes. 

Keyword — the trigger word in a line of programming, usually 
the first word after the line number. Keywords include 
STOP, PRINT and GOTO. 



Language — computer languages are divided into three sec- 
tions: high level languages, such as BASIC, which are 
reasonably close to English and fairly easy for humans to 
use; low level languages, such as Assembler, that use 
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short phrases which have some connection with English 

(ADD for add and RET for return, for instance); and 

machine code which communicates more or less directly 

with the machine. 
LCD — this stands for Liquid Crystal Diode. Some computers 

such as the TRS-80 Pocket Computer use an LCD display. 
LED — this stands for Light Emitting Diode. The bright red 

numbers which are often used on watch or clock displays 

are made up of LEDs. 
Logic — the mathematical form of a study of relationships 

between events. 
Loop — a sequence of instructions within a program which is 

performed over and over again until a particular condition 

is satisfied. 



M 

Machine Language or Machine Code — an operation code 
which can be understood and acted upon directly by the 
computer. 

Magnetic Disk — see Disk and Floppy Disk. 

Mainframe — computers are generally divided into three 
groups, and the group a computer falls into depends more 
or less on its size. The TS-1000 you are using is a micro- 
computer; medium sized computers are known as mini- 
computers; and the giant computers that you sometimes 
see in science fiction movies are mainframe computers. 
Until 15 years ago mainframe computers were, in practical 
terms, the only ones available. 

Memory — there are two types of memory within a computer. 
The first is called ROM (read-only memory); this is the 
memory that comes already programmed on the compu- 
ter, which tells the computer how to make decisions and 
how to carry out arithmetic operations. This memory is 
unaffected when you turn the computer off. The second 
type is RAM (random access memory). This memory holds 
the program you type in at the keyboard or send in via a 
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cassette or disk. In most computers the computer "for- 
gets" what is in RAM when you turn the power off. 

Microprocessor — the heart of any computer. It requires pe- 
ripheral unit interfaces, such as a power supply and input 
and output devices, to act as a microcomputer. 

MODEM — stands for Modulator Demodulator. This is a de- 
vice which allows two computers to talk to each other over 
the telephone. The computers usually use a cradle in 
which a telephone receiver is placed. 

Monitor — this has two meanings in computer terms. One 
meaning is a television-like display. A monitor has no 
facility for tuning television programs, and usually the 
picture produced on a monitor is superior to that pro- 
duced by an ordinary television. The second meaning of a 
monitor relates to ROM. The monitor of a computer is 
described as the information it has built in when you buy 
it. This information allows it to make decisions and carry 
out arithmetic computations. 

Motherboard — a framework to which extra circuits can be 
added. These extra circuits often give the computer facili- 
ties which are not built-in, such as that of producing sound 
or of controlling a light pen. 

MPU — an abbreviation for Microprocessor Unit. 



N 

Nano-second — a nano-second is one thousand billionth of a 
second, the unit of speed in which a computer or a 
memory chip is often rated. 

Non-Volatile Memory — memory which is not lost when the 
computer is turned off. Some of the smaller computers 
such as the TRS-80 Pocket Computer have non-volatile 
memory. The batteries hold the program you enter for 
several hundred hours. 

Not — a Boolean logic operation that changes a binary digit 
into its opposite. 
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Null String— a string which contains no characters. It is 
shown in the program as two double quote marks, without 
anything between them. 

Numeric — pertaining to numbers as opposed to letters (that 
is, alphabetic). Many keyboards are described as being 
alphanumeric which means both numbers and letters are 
provided. 



o 

Octal — a numbering system which uses eight as the base, 
and the digits 0, 1, 2, 3, 4, 5, 6 and 7. The Octal system is 
not used very much nowadays in microcomputer fields. 
The Hexadecimal system is more common (see Hexadeci- 
mal). 

Operating System — the software or firmware generally pro- 
vided with the machine that allows you to run other 
programs. 

OR — an arithmetic operation that returns a 1, if one or more 
inputs are 1. 

Oracle — a method of sending text messages with a broadcast 
television signal. A teletext set is required to decode the 
messages. 

Output — information or data fed out by the computer to 
such devices as a TV-like screen, a printer or a cassette 
tape. The output usually consists of the information which 
the computer has produced as a result of running a 
program. 

Overflow — a number too large or too small for the computer 
to handle. 



Pad — see Keypad. 

Page — often used to refer to the amount of information 
needed to fill one TV screen, so you can talk about seeing 
a page of a program, the amount of the listing that will 
appear on the screen at one time. 
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PASCAL — a high level language. 

Peripheral — anything which is hooked onto a computer, for 
control by the computer, such as a disk unit, a printer or a 
voice synthesizer. 

Port — a socket through which information can be fed out of 
or in to a computer. 

Prestel — the British telecom name for a system of calling up 
pages of information from a central computer via the 
telephone and displaying them on a television screen. A 
similar commercial version in the United States is known 
as The Source. 

Program — in computer terms program has two meanings. 
One is the list of instructions that you feed into a compu- 
ter, and the second is used as a verb; as in "to program a 
computer." 

PROM — stands for Programmable Read Only Memory. This 
is a device which can be programmed, and once it is then 
the program is permanent (see also EPROM and ROM). 



Random Access Memory (RAM) — the memory within a com- 
puter which can be changed at will by the person using the 
computer. The contents of RAM are usually lost when a 
computer is turned off. RAM is the memory device that 
stores the program that you type in and also stores the 
results of calculations in progress. 

Read-Only Memory (ROM) — in contrast to RAM, information 
in ROM cannot be changed by the user of the computer, 
and the information is not lost when the computer is 
turned off. The data in ROM is put there by the manufac- 
turers and tells the computer how to make decisions and 
how to carry out arithmetic computations. The size of 
ROM and RAM is given in the unit K (see K). 

Recursion — the continuous repetition of a part of the pro- 
gram. 

Register — a specific place in the memory where one or more 
computer words are stored during operations. 
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Reserved Word — a word that you cannot use for a variable in 
a program because the computer will read it as something 
else. An example is the word TO. Because TO has a 
specific computer meaning, most computers will reject it 
as a name for a variable. The same goes for words like 
FOR, GOTO and STOP. 

Routine — this word can be used as a synonym for program, 
or can refer to a specific section within a program (see also 
Subroutine). 



Second Generation — this has two meanings. The first applies _ 

to computers using transistors, as opposed to first genera- 
tion computers which used valves. Second generation can 
also mean the second copy of a particular program; subse- 
quent generations are degraded by more and more noise. 

Semiconductor — a material that is usually an electrical insula- 
tor but under specific conditions can become a conductor. 

Serial — information which is stored or sent in a sequence, — - 

one bit at a time. 

Signal — an electrical pulse which is a conveyor of data. 

Silicon Valley — the popular name given to the area in Califor- 
nia where many semiconductor manufacturers are lo- 
cated. 

SNOBOL — a high level language. 

Software — the program which is entered into the computer 
by a user which tells the computer what to do. 

Software Compatible — this refers to two different computers 

which can accept programs written for the other. _ 

Static Memory — a non-volatile memory device which retains 
information so long as the power is turned on, but does 
not require additional boosts of power to keep the mem- 
ory in place. 

Subroutine — part of a program which is often accessed many 
times during the execution of the main program. A sub- 
routine ends with an instruction to go back to the line after — 
the one which sent it to the subroutine. 
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Teletext — information transmitted in the top section of a 
broadcast television picture. It requires a special set to 
decode it to fill the screen with text information. Teletext 
messages can be transmitted by cable or over phone lines. 
Examples of this are the Prestel service in Britain and The 
Source in the United States. 

Teletype — a device like a typewriter which can send informa- 
tion and also receive and print it. 

Terminal — a unit independent of the central processing unit. 
It generally consists of a keyboard and a cathode ray 
display. 

Time Sharing — a process by which a number of users may 
have access to a large computer which switches rapidly 
from one user to another in sequence, so each user is 
under the impression that he or she is the sole user of the 
computer at that time. 

Truth Table — a mathematical table which lists all the possible 
results of a Boolean logic operation, showing the results 
you get from various combinations of inputs. 



u 

UHF— Ultra High Frequency (300-3000 megaHertz). 
Ultra Violet Erasing — Ultra violet light must be used to erase 
EPROMs (see EPROM). 



Variable — a letter or combination of letters and symbols 
which the computer can assign to a value or a word during 
the run of a program. 

VDU — an abbreviation for Visual Display Unit. 

Volatile — refers to memory which "forgets" its contents 
when the power is turned off. 
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w 

Word — a group of characters, or a series of binary digits, 
which represent a unit of information and occupy a single 
storage location. The computer processes a word as a 
single instruction. 

Word Processor — a highly intelligent typewriter which allows 
the typist to manipulate text, to move it around, to justify 
margins and to shift whole paragraphs if necessary on a 
screen before outputting the information onto a printer. 
Word processors usually have memories, so that standard 
letters and the text of letters, written earlier, can be 
stored. 
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The A to Z Book of Computer Games (Mclntire, Thomas C, 

Tab Books, Blue Ridge Summit, Pa.). 
This is a fine Tab book to give you program ideas and 
ready-to-run programs, although some of the games are a 
disappointment, such as the overly long Othello program 
which does not even play, but simply records the moves 
made by two human players. Others, however, such as 
Fivecard and Hotshot, are well written, and well worth 
entering into your microcomputer. 

BASIC Computer Games (ed. Ahl, David, Creative Computing 

Press, Morristown, New Jersey). 
This is a classic work, the source of more programming 
ideas than any other computer games book ever pub- 
lished. I had a meal with David Ahl one night in London 
after a PCW show and discussed the book. He said that 
he'd been in the personal computer field almost before 
there were personal computers, and while many of the 
games in this book do not seem startling now, the fact that 
people could write and play games for computer interac- 
tion at all seemed quite incredible in the late seventies. 
The Checkers program and Life for Two are just a couple of 
the treasures you will find in this splendid program and 
idea source book. 

BASIC Computer Programs for the Home (Sternberg, Charles 

D., Hayden Book Company, Inc., Rochelle Park, New Jersey). 
Traditionally, home computers (when first purchased) 
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have been used for playing games. One reason why they 
have not been used for more serious applications stems 
from the lack of a readily available, comprehensive set of 
home applications programs that were easy to use and 
understand and that satisfied the practical requirements of 
the home. This book provides a set of programs to make 
your computer start earning its keep. The programs pro- 
vide a good cross-section of practical applications; these 
have been designed so as not to rely upon the availability 
of tape or disk-storage devices. The programs cover a wide 
field, and are divided into a number of sections: home 
financial programs (including household expenses and 
income tax recording); car related programs (including 
fuel use and trip planning); "Kitchen Helpmates" (includ- 
ing diet and meal planning programs); scheduling pro- 
grams for home use (including a reminder calendar and a 
couple of programs which I imagine are designed to short 
circuit arguments about which television programs will be 
watched); and "List programs for every purpose" (includ- 
ing Christmas cards, music collections and three versions 
of an address program). 

The BASIC Handbook (Lien, David A., Compusoft Publishing, 

San Diego, California). 
This is an encyclopedia of the BASIC language. Now that 
BASIC is so firmly established throughout the microcom- 
puter world, it is necessary to make its many dialects 
understandable so that programs can be transported be- 
tween different computers. When you have found exactly 
the program you've been looking for, it is very frustrating 
to be unable to run it on your computer. This book 
addresses that problem by discussing in detail just about 
every commonly used BASIC statement, function, opera- 
tor and command. For the most part, BASIC words mean 
the same thing to every computer which recognizes them. 
If a computer does not possess the capabilities of a 
needed or specified word, there are often ways to accom- 
plish the same function by using another word, or combi- 
nation of words. Although the handbook requires some 
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application to transform the information into usable form, 
it is a very valuable reference work indeed. Every BASIC 
word you have ever heard of (and many you may not have 
heard of, such as LE, NE, GOTO-OF, RES and TIME) is 
probably in the book. It may be of limited use to you in 
your early days of computing, but it should become an 
indispensable handbook once you get more involved in 
the subject. 

Beat the Odds, Microcomputer Simulations of Casino Games 

(Sagan, Hans, Hayden Book Company, Inc., Rochelle Park, 

New jersey). 
The book explains how to play certain casino games 
(trente-et-quarante, roulette, chemin-de-fer, craps and 
blackjack) and gives complete program listings in BASIC 
with commentaries on systems and optimal strategies. 
Professor Sagan (Professor of Mathematics at North Caro- 
lina State University) says he wrote the book in an attempt 
to convince people that, in the long run, they could not 
win — except possibly at blackjack — and to explain some 
popular systems and their pitfalls, and above all to provide 
very realistic computer simulations of the games them- 
selves. He has succeeded in his attempt. The listings are 
possibly longer than other computer versions of the same 
games, but this is because the Sagan versions strictly 
duplicate the odds involved in playing the game "in real 
life", and cover all the eventualities that a real game can 
produce. The programs are well-structured, and an exami- 
nation of the listings should give you ideas for improving 
your own programming. 

The Calculator Game Book for Kids of All Ages (Hartman, 

Arlene, Signet Books, New York). 
The book's title says it all, and the names of the games 
(which include Fibonacci Follies, Stretch to Sixty and 
Casting Out 9s) suggest the book's contents. There are 
some worthwhile brain-stretching puzzles, and 15 or so 
ideas definitely calling for conversion to computer games. 

33 Challenging Computer Games for TRS-80/Apple/PET 

(Chance, David, Tab Books, Blue Ridge Summit, Pa.). 
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Even if you don't have any of the three computers named 
in the title, you will still find the book a goldmine of ideas 
for your own development, and many of them will run, 
with minimal alteration, on any BASIC-using computer. 
Particularly commendable programs are Life Support, 
Scrambled Eggs and Tank Assault. 
Communicating with Microcomputers (Witten, Ian H., Aca- 
demic Press, London). 
This is an introduction to the technology of man/computer 
communications for the non-specialist. By placing particu- 
lar emphasis on low-cost techniques associated with small 
systems and personal computers, the reader's attention is 
focused on the positive nature of the "microprocessor 
revolution" — how machines can help people — rather than 
the negative aspects which are often highlighted in the 
non-technical press. The level of the book is suitable for 
the layman with some acquaintance with electronics. The 
final section, on speech communication, provides the 
most fascinating reading. 
Computer Games for Businesses, Schools and Homes (Nahi- 
gian, J. Victor and Hodges, William S., Winthrop Publishers 
Inc., Cambridge, Mass.). 
Some of the programs are a little thin for the size and price 
of the book, but the best ones are well worth adapting to 
run on your computer. The inclusion of long, clear sample 
run printouts ensures that you know exactly what the 
programs will do before you run them. The Tennis and Star 
Trek programs are especially good. 
Games for Home, Travel and Parties (Jensen, Helen, Western 
Publishing Company Inc., Racine, Wisconsin). 
Aimed squarely at children, this book gives some games 
which are simple to program (these include Snakes, Lift- 
off and Fish), and contains a complete chapter on how to 
play chess. 
Home Computers, Questions and Answers, Hardware (Didday, 
Rich, dilithium Press). 
The book has two main purposes. First, it is intended to 






BIBLIOGRAPHY • 125 

give readers a real feeling for what is involved in home 
computing, so that they can make rational decisions be- 
fore buying equipment. Second, it is intended to give 
people who have no specialized knowledge of computing 
a general background to the subject, and specifically to 
microcomputers. The book succeeds in imparting enough 
information to ensure you will have little trouble under- 
standing articles about advanced projects in computer 
hobby magazines, advertisements for home computing 
equipment, or other people who do have advanced com- 
puter knowledge. 

Inside BASIC Games (Mateosian, Richard, Sybex). 
This book is a guide, albeit a slightly overwritten one, for 
anyone who wishes to understand computer games. You 
will learn how to write interactive programs in BASIC and 
how the principles of systems development are applied to 
small computers. The book also looks at how the features 
of specific small computer systems have been supported 
in BASIC. The sections of the book include: Arithmetic 
Games, Guessing Games, Time Games, Date Games, Tax- 
man, and programming in "Free BASIC": a structured 
BASIC that is translated manually into the actual BASIC 
instructions to be entered into the computer. Free BASIC 
is not a language; it is a program description medium (like 
flow charts) that has no line numbers, and uses symbolic 
names for subroutines. Additional chapters look at The 
Match-Up Game, Craps and Alien Life. If you can contend 
with the verbiage, you will find this book well worthwhile. 

An Introduction to Personal and Business Computing (Zaks, 

Rodnay, Sybex). 

I had lunch with Rodnay in London during a PCW show 
and he told me that he thought current American predic- 
tions on the growth of the personal computer field were 
grossly pessimistic. He pointed out that the predictions 
current in 1978, when he wrote this book, have been 
proved so inaccurate that would-be prophets should take 
warning and assume that whatever they say will be wrong 
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by a factor of 10 or 100. Despite its age — and computer 
books do age uncommonly quickly — this book is a good 
introduction to the field, explaining in clear, snappy En- 
glish the fundamentals of computer operation. Dr. Zaks 
also gives suggestions on what to look for when buying a 
computer. 
Microsoft BASIC (Knecht, Ken, dilithium Press, Forest Grove, 
Oregon). 
This book presents a complete introduction to program- 
ming in Microsoft BASIC. The concepts presented are 
illustrated with short, working programs. By starting with 
the simplest and most commonly used commands, and 
then progressing on to the more complex BASIC com- 
mands, Mr. Knecht shows how the more powerful ver- 
sions of the language can save valuable programming time 
and effort. 
57 Practical Programs and Games in BASIC (Tracton, Ken, Tab 
Books, Blue Ridge Summit, Pa.). 
There are more serious programs than games (of the Chi- 
Square Evaluation and Fibonacci Numbers variety) in this 
book. They are well programmed, and supported by ade- 
quate (if brief) documentation, and by flow charts. The 
Space Wars programs (versions one and two) at the end of 
the book are particularly good. 
Problems for Computer Solution (Rogowski, Stephen J., Crea- 
tive Computing Press, Morristown, New Jersey). 
This outlines over 50 simple (and a few not-so-simple) 
problems which can be solved by writing a program. There 
are both teacher and student editions of this book; the 
teacher edition has a suggested program and sample run 
printout to solve the difficulty. It is an excellent source for 
educational ideas. 
Stimulating Simulations (Engel, C. W., Hayden Book Com- 
pany, Inc., New Jersey). 
Here, according to the cover, are "12 unique programs in 
BASIC for the computer hobbyist." Inside you will find 
some fascinating programs: Forest Fire, Rare Birds and 
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The Devil's Dungeon are three you are sure to enjoy 
playing, while Diamond Thief (the computer decides who 
has committed the crime, then challenges you to discover 
which of the suspects is guilty) is both well written and 
tightly programmed. 

TAKE TWO! 32 Board Games for 2 Players (Tapson, Frank, A & 

C Black, London). 
This book is aimed at children, but it does give many 
fascinating ideas that could be transformed into computer 
games (even if some of them are duplicated elsewhere in 
the book). 

24 Tested, Ready-to-Run Game Programs in BASIC (Tracton, 

Ken, Tab Books, Blue Ridge Summit, Pa.). 
Tab Books are prolific publishers in the microcomputer 
program field, and their books are deservedly successful. 
If nothing else, reading a book such as this one will give 
you ideas for structuring programs neatly, and for writing 
them to ensure the maximum compatibility between dif- 
ferent versions of BASIC. Many of the games, such as Auto 
Rally and Capture the Alien, are (despite their weak titles) 
well thought out, carefully constructed programs. 

1001 Things to Do with Your Personal Computer (Sawush, 

Mark, Tab Books, Blue Ridge Summit, Pa.). 

I bought this book at a computer fair in Atlanta, and read it 
(making notes, and turning down page corners) on the 
flight to London. And I still hadn't finished it on arrival. If 
you feel you have come to the end of possible applications 
for your computer, buy this book and discover that you 
have barely scratched the surface. It tells you about writ- 
ing music and stories, aiding a mechanic or a carpenter, 
solving simultaneous equations, astrology, and much, 
much more. 

The World Computer Chess Championship (Hayes, Jean E., and 

Levy, David N. L., Edinburgh University Press, Edinburgh). 
This is a fascinating account of the world's first machine 
versus machine chess championship, held in 1974, when 
the dozen or so computer programs taking part were the 
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only chess programs in existence. The games are analyzed 
in detail, and the final section of the book outlines a 
board-numbering system which you could use if you're 
considering writing your own chess program. The book 
makes you realize how far the computer world has come 
in only a few years. 



r 

r 

r 
r 

r 
r 
r 
r 
i 
r 
r 

r 
r 



ES 




EXCITEMENT! 

....Thrill to the challenge of 
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ENTERTAINMENT! ... More than 25 f ascinatingonginal 
full-color programs, including arcade-style games, brain 
teasers, word games, puzzles, and music written exclu- 
sively for THE DELL COMPUTER GAMES SERIES and 
guaranteed to give you endless hours of fun and thrilling 
entertainment. 

CHALLENGE!. .. Improve your computer-game skills. 
Extend your programming expertise. Learn tricks and 
techniques to apply to your programming as you follow 
instructions to enter each game into your Atari Com- 
puter Once you've mastered their present form, you're 
the expert. Try your hand at improving them! 
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